--- a/hedgewars/pas2cSystem.pas	Wed Dec 07 11:35:03 2011 -0500
+++ b/hedgewars/pas2cSystem.pas	Wed Dec 07 22:54:39 2011 +0300
@@ -3,6 +3,25 @@
 type 
     LongInt = integer;
     LongWord = integer;
+    Cardinal = integer;
+    PtrInt = integer;
+
+    pointer = pointer;
+    PChar = pointer;
+
+    double = float;
+    real = float;
+    float = float;
+
+    boolean = boolean;
+    LongBool = boolean;
+
+    string = string;
+    shortstring = string;
+    ansistring = string;
+
+    char = char;
 var 
     false, true: boolean;
-    write, writeln: procedure;
+    write, writeln, read, readln: procedure;
+    strlen : function : integer;