--- a/hedgewars/pas2cRedo.pas	Sat May 11 04:58:11 2019 +0200
+++ b/hedgewars/pas2cRedo.pas	Sat May 11 20:31:51 2019 +0200
@@ -48,6 +48,8 @@
 
     Handle = integer;
 
+    TDateTime = double;
+
 var
     write, writeLn, read, readLn, flush, CreateDir: procedure;
 
@@ -84,7 +86,8 @@
 
      min, max:function:integer;
     assign, rewrite, rewrite_2, reset, reset_2, flush, BlockWrite, BlockRead, close : procedure;
-    FileExists, DirectoryExists, eof : function : boolean;
+    FileSize : function: Int64;
+    FileExists, DirectoryExists, eof, DeleteFile : function : boolean;
 
     ParamCount : function : integer;
     ParamStr : function : string;