and
begin
Bounds 
case
constructor
destructor
div
do
downto
else
end
file
for
function
if
in
input
interface
implementation
label
mod
nil
not 
of
or
output
packed
procedure
program
repeat
set
SizeOf
then
to
type
unit
until
uses
virtual
while
with 
array
boolean
Char
const
false
integer
of
real
record
text
true
type
var
word