allocate
and
array
begin
boolean
case
char
const
div
do
downto
dynarray
else
end
false
file
for
forward
function
goto
handle
if
implementation
implementation
in
inherited
inherited
inline
integer
interface
interface
intrinsic
label
longint
mod
nil
not
object
object
of
or
otherwise
override
packed
packed
pi
procedure
program
program
real
record
repeat
return
set
set
string
structure
then
to
true
type
unit
unit
univ
until
uses
uses
var
vector
while
with