/L20"Turbo Pascal" Line Comment = // Nocase  Block Comment On = {* Block Comment Off = *} Escape Char = \ String Chars = "' File Extensions = PAS INC
/Delimiters = ~!@%^&*()-+|\/{}[];"'<> ,	.?
/Function String = "%[a-zA-Z_]*)"
/C1
begin
const
else end
function
goto
if
label
procedure program
readln repeat
uses
var
write writeln
/C2
and array asm
case
destructor div do downto
exports
file for
implementation
in
/C3
:=
inhertited inline interface
library
mod
nil not
object of or
/C4
;
+
-
=
// /
%
&
>
<
^
!
|
/C5
packed private public
record 
set shl shr string
then to type
unit until 
with
xor
