--- a/tools/PascalParser.hs	Mon Apr 09 23:36:23 2012 +0400
+++ b/tools/PascalParser.hs	Mon Apr 09 23:55:12 2012 +0400
@@ -113,7 +113,7 @@
         comments
         e <- initExpression
         comments
-        return $ VarDeclaration False ([i], fromMaybe (DeriveType e) t) (Just e)
+        return $ VarDeclaration (isNothing t) ([i], fromMaybe (DeriveType e) t) (Just e)
         
 typeDecl = choice [
     char '^' >> typeDecl >>= return . PointerTo