and
array
begin
case
const
div
do
downto
else
end
file
for
function
goto
if
implementation
in
inherited
inline
interface
label
mod
nil
not
object
of
or
otherwise
packed
procedure
program
record
repeat
return
set
string
then
to
type
unit
univ
until
uses
var
while
with