Паскаль.

[email protected] в категроии Информатика, вопрос открыт 16.08.2017 в 01:41

Выдаёт ошибку:
Program1.pas(16) : Ошибка времени выполнения: Входная строка имела неверный формат.
Почему и как исправить?

const
CFileName = 'Numbers.txt';

var
F: Text;
h1, h2, h3: integer;
h: integer ;
N: integer;

begin
Assign(F, CFileName);Reset(F);
if not eof(F) then Read(F, h1);if not eof(F) then Read(F, h2);N := 0;
while not eof(F) do
begin
if Eoln(F) then Readln(F); Read(F, h);
N := N + 1;
if h3 <> h then begin
h3 := h;
if (h2 < h1) and (h2 < h3) then Writeln(N:5, h2:10);h1 := h2;h2 := h3
end; end;
Write('OK');Readln; end.