and array begin by case const definition div do else elsif end exit except export finally for forward from if implementation import in loop mod module not of or packedset pointer procedure qualified record rem retry repeat return set then to type until var while with abs bitset boolean cardinal cap chr char complex cmplx dec dispose excl false float halt high im inc incl int interruptible integer length lfloat longcomplex longreal max min new nil odd ord proc protection re real size true trunc uninterruptible val begin case record