--- a/tools/pas2c/PascalParser.hs	Sat Jul 05 18:51:45 2014 +0200
+++ b/tools/pas2c/PascalParser.hs	Sun Jul 06 00:26:55 2014 +0400
@@ -92,7 +92,7 @@
 
 aVarDecl :: Bool -> Parsec String u TypeVarDeclaration
 aVarDecl endsWithSemi = do
-    isVar <- liftM (== Just "var") $
+    isVar <- liftM (\i -> i == Just "var" || i == Just "out") $
         if not endsWithSemi then
             optionMaybe $ choice [
                 try $ string "var"