Ошибка времени исполнения, входная строка имела неверный формат

{P_30_1 Обработка журнала, первый вариант}
{-----Глобальные переменные-----}
var InFile, OutFile: text; //Входной и выходной файлы
    Counter: integer;      //Счетчик строк входного файла
{-----Процедура обработки одной строки-----}
procedure HandleString;
var N:integer;       //Оценка, прочитанная из файла
    Cnt:integer;     //Количество оценок
    Sum:integer;     //Сумма баллов
    Rating:integer;  //Средний балл
begin
 Sum:=0; Cnt:=0; //Очищаем накопитель и счетчик оценок
 while not EoF(InFile) do begin
  Read(InFile, N);    //Читаем оценку в переменную N
  Sum:= Sum+N;        //накапливаем сумму баллов
  Cnt:= Cnt+1;        //Наращиваем счетчик оценок
 end;
 if Cnt>0 then begin  //Если оценки были
  Rating:= Sum div Cnt;
  Writeln(OutFile, Counter:3, Cnt:13, Sum:14, Rating:12);
  end
 else //А если оценок не было
  writeln(OutFile, Counter:3, ' Ученик не аттестован');
end;
 
{-----Главная программа-----}
begin
 Counter:=0; //Обнуляем счетчик строк
 //Открываем входной файл
 Assign(Infile,'P_30_1in.txt'); reset(InFile);
 //Создаем выходной файл
 Assign(OutFile, 'P_30_1out.txt'); rewrite(OutFile);
 //Выводим шапку таблицы
 Writeln(OutFile, 'Номер    Количество    Сумма    Средний');
 Writeln(OutFile, 'Ученика    оценок      баллов     балл ');
 {Пока не конец входного файла}
 While not EoF(InFile) do begin
  Counter:=Counter+1; //Наращиваем счетчик строк
  HandleString;       //Обрабатываем строку
  readln(InFile);     //Переход на следующую строку
 end;
 {Закрываем оба файла}
 Close(InFile); Close(OutFile);
end.