--- a/tools/PascalParser.hs	Wed Nov 16 16:36:17 2011 -0500
+++ b/tools/PascalParser.hs	Thu Nov 17 17:57:45 2011 +0400
@@ -85,6 +85,7 @@
     | InitString String
     | InitChar String
     | BuiltInFunction String [InitExpression]
+    | InitSet [Identifier]
     | InitNull
     deriving Show
 
@@ -577,6 +578,7 @@
     where
     term = comments >> choice [
         liftM (uncurry BuiltInFunction) $ builtInFunction initExpression 
+        , try $ brackets pas (commaSep pas $ iD) >>= return . InitSet
         , try $ parens pas (commaSep pas $ initExpression) >>= return . InitArray
         , parens pas (semiSep pas $ recField) >>= return . InitRecord
         , try $ integer pas >>= \i -> notFollowedBy (char '.') >> (return . InitNumber . show) i