diff -r f86a3ccd19c0 -r 2c4151afad0c hedgewars/pas2cSystem.pas
--- a/hedgewars/pas2cSystem.pas	Fri Feb 10 12:21:54 2012 +0100
+++ b/hedgewars/pas2cSystem.pas	Fri Feb 10 17:18:49 2012 +0400
@@ -36,11 +36,15 @@
     PLongInt = ^LongInt;
     PLongWord = ^LongWord;
     PInteger = ^Integer;
+    
+    Handle = integer;
+    stderr = Handle;
 var 
     false, true: boolean;
     write, writeLn, read, readLn, inc, dec: procedure;
     StrLen, ord, Succ, Pred : function : integer;
     Low, High : function : integer;
     Now : function : integer;
+    Length : function : integer;
     StrPas, FormatDateTime : function : shortstring;
     exit : procedure;