--- a/tools/pas2c/PascalBasics.hs	Fri Feb 07 14:41:49 2014 +0400
+++ b/tools/pas2c/PascalBasics.hs	Fri Feb 07 15:44:27 2014 +0400
@@ -17,7 +17,7 @@
 string' = void . string
 
 builtin :: [String]
-builtin = ["succ", "pred", "low", "high", "ord", "inc", "dec", "exit", "break", "continue", "length"]
+builtin = ["succ", "pred", "low", "high", "ord", "inc", "dec", "exit", "break", "continue", "length", "copy"]
 
 pascalLanguageDef :: GenLanguageDef String u Identity
 pascalLanguageDef