diff -r c61a4f68e6e9 -r 2d3232069c4b tools/PascalParser.hs
--- a/tools/PascalParser.hs	Tue Jan 31 22:04:41 2012 -0500
+++ b/tools/PascalParser.hs	Fri Feb 03 14:21:07 2012 +0400
@@ -23,7 +23,7 @@
     return u
 
 iD = do
-    i <- liftM (flip Identifier Unknown) (identifier pas)
+    i <- liftM (flip Identifier BTUnknown) (identifier pas)
     comments
     return i
         
@@ -62,7 +62,7 @@
         t <- choice $ map (\s -> try $ caseInsensitiveString s >>= \i -> notFollowedBy alphaNum >> return i) knownTypes
         e <- parens pas expression
         comments
-        return $ TypeCast (Identifier t Unknown) e
+        return $ TypeCast (Identifier t BTUnknown) e
         
     
 varsDecl1 = varsParser sepEndBy1    
@@ -348,7 +348,7 @@
 expression = buildExpressionParser table term <?> "expression"
     where
     term = comments >> choice [
-        builtInFunction expression >>= \(n, e) -> return $ BuiltInFunCall e (SimpleReference (Identifier n Unknown))
+        builtInFunction expression >>= \(n, e) -> return $ BuiltInFunCall e (SimpleReference (Identifier n BTUnknown))
         , try (parens pas $ expression >>= \e -> notFollowedBy (comments >> char '.') >> return e)
         , brackets pas (commaSep pas iD) >>= return . SetExpression
         , try $ natural pas >>= \i -> notFollowedBy (char '.') >> (return . NumberLiteral . show) i
@@ -591,7 +591,7 @@
         t <- choice $ map (\s -> try $ caseInsensitiveString s >>= \i -> notFollowedBy alphaNum >> return i) knownTypes
         i <- parens pas initExpression
         comments
-        return $ InitTypeCast (Identifier t Unknown) i
+        return $ InitTypeCast (Identifier t BTUnknown) i
         
 builtInFunction e = do
     name <- choice $ map (\s -> try $ caseInsensitiveString s >>= \i -> notFollowedBy alphaNum >> return i) builtin
@@ -609,3 +609,4 @@
     string "var"
     v <- varsDecl True
     return $ System (t ++ v)
+  
\ No newline at end of file