--- a/tools/PascalBasics.hs	Sun Nov 27 00:57:43 2011 +0100
+++ b/tools/PascalBasics.hs	Sun Nov 27 14:46:57 2011 +0300
@@ -25,7 +25,7 @@
             , "type", "var", "const", "out", "array", "packed"
             , "procedure", "function", "with", "for", "to"
             , "downto", "div", "mod", "record", "set", "nil"
-            , "string", "shortstring", "cdecl", "external"
+            , "string", "cdecl", "external", "if", "then", "else"
             ] ++ builtin
     , reservedOpNames= [] 
     , caseSensitive  = False