I got
Runtime Error(2) on the
Reset below:
ASSIGN( TimeFile,FileN1 );
RESET( TimeFile);
It happened because you forget to put this before the
Assign command:
And I got
Runtime Error(103) on the
Writeln below:
WriteLn( FileOut,Error,JD:18:12,' too far' );
It happened because you forget to call
Assign, give it a proper filename and call
Rewrite:
Assign(FileOut, 'out.dat');
Rewrite(FileOut);