Найти значение максимальной цены в гривнах - Turbo Pascal

Формулировка задачи:

Помогите пожалуйста найти ошибку в коде.

                    Листинг программы
                
 
                        
                          
                    
 Program Olimpiada;
var
score,maxScore, scoreNum,i:integer;
 
begin
  writeln('Эта программа поможет найти значение максимальной цены в гривнах.');
  write('Введите количество оценок  для сравнения: ');
  read (scoreNum);
  writeln;
  
  if (score<1)then exit;
  
   maxScore:=0;
  
  for i:=1 to 8 do
  begin    
    write('Введите бал ', i, '-го ученика: ');
    read(score);
    if score > maxScore then maxScore := score;
  end;
  
  writeln;
  writeln('Максимальный бал : ', maxScore);
end.

За даними, що містяться в таблиці Олімпіада, створіть програму для визначення максимального бала, одержаного учнями за виконання Завдання 3 олімпіади. Вхідні дані — значення балів, одержаних кожним учасником за виконання Завдання 3. Вихідні дані — значення максимального бала. Прізвище Ім'я Завдання 1 Завдання 2 Завдання 3 Бочаров Ігорь 11 15 9 Клуглий Тарас 3 17 10 Пісков Василь 9 4 5 Солок Інна 5 8 6 Іваницька Світлана 1 4 5 Приходько Станислав 5 8 5 Сохацьа Валерія 9 7 3 Малич Лідія 8 8 6

Решение задачи: «Найти значение максимальной цены в гривнах»

Листинг программы

var
  i, t: Integer;
  c: Char;
begin
  while not SeekEoF do begin
    for i:=1 to 2 do repeat Read(c) until c=' ';
    for i:=1 to 3 do Read(t); ReadLn;
    if m<t then t:=m;
  end;
  WriteLn(m);
end.

Объяснение кода листинга программы

В данном коде происходит чтение данных из файла до конца файла (пока не будет достигнут конец файла). Затем данные обрабатываются следующим образом:

Переменная i инициализируется как целое число.
Цикл while not SeekEoF do begin выполняется до тех пор, пока не будет достигнут конец файла.
Внутри цикла for i:=1 to 2 do repeat Read(c) until c=' '; происходит чтение символа из файла и его сохранение в переменной c. Цикл повторяется до тех пор, пока символ не станет пробелом.
Далее, внутри того же цикла, происходит чтение трех чисел из файла и их сохранение в переменных t, m и n.
Затем, сравниваются числа m и t, и если m меньше t, то значение t присваивается переменной m.
После завершения внутреннего цикла, значение переменной m записывается в файл с помощью функции WriteLn.
Конец программы.