Дописание компилятора, Компилятор Опции

[MaJIbILLI]

Требуется дописать компилятор. ЧО то он у мя ругается на строчку в лесическом модуле: (lex.pas)
if eof(f) then LineError:=LineError+1; (если символ перевода строки то увел +1) выдаёт следующее EInOutError I/O=6.

[volvo]

Потому что:

procedure Abort(s: string);
begin
   Error(s);
   close(f);
   close(output); // <--- Это тебя кто научил делать?
   readln;
   Halt;
end;

P.S. Переехали в Дельфи...