--- a/tools/PascalParser.hs	Sun Feb 05 15:55:15 2012 +0100
+++ b/tools/PascalParser.hs	Sun Feb 05 23:24:43 2012 +0400
@@ -113,7 +113,7 @@
         comments
         e <- initExpression
         comments
-        return $ VarDeclaration False ([i], fromMaybe UnknownType t) (Just e)
+        return $ VarDeclaration False ([i], fromMaybe (DeriveType e) t) (Just e)
         
 typeDecl = choice [
     char '^' >> typeDecl >>= return . PointerTo