Требуется дописать компилятор. ЧО то он у мя ругается на строчку в лесическом модуле: (lex.pas)
if eof(f) then LineError:=LineError+1; (если символ перевода строки то увел +1) выдаёт следующее EInOutError I/O=6.
procedure Abort(s: string);
begin
Error(s);
close(f);
close(output); // <--- Это тебя кто научил делать?
readln;
Halt;
end;