Работа с файлами(Pascal)

[slimShADY218]

Перед написанием вопроса заглянул в исходник и кое-что нашёл, немного изменил код, но не знаю что делать, чтобы на экран выводилась строка с наибольшей суммой баллов по трём заданиям,

uses crt;
var f,f1: text;
    fam: string;
    imja: string;
    ball1,ball2,ball3: integer;
    s,
    t: string;
    r: integer;
    otv: char;
    i: byte;

begin

assign(f,'F:\inputP.txt');
rewrite(f);
assign(f1,'F:\outputP.txt');
rewrite(f1);

repeat
clrscr;
writeln('Введите фамилию ученика ');
readln(fam);
writeln;
writeln('введите имя ученика ');
readln(imja);
writeln;
writeln('введите количество баллов за 1е задание ');
readln(ball1);
writeln;
writeln('введите количество баллов за 2е задание  ');
readln(ball2);
writeln;
writeln('введите количество баллов за 3е задание *');
readln(ball3);

writeln(f,fam:20,imja:10,ball1:10,ball2:10,ball3:10);

clrscr;
writeln('Закончить ввод? ');
readln(otv);
until otv in ['Y','y','Д','д'];
close(f);

reset(f);
i:=0;
while not eof(f) do
begin
  readln(f,ball1,ball2,ball3, s);
  if не знаю как быть дальше then
  begin
  writeln(s,' ',ves);
  end;
end.

[slimShADY218]

Изменил код, хоть и не дописал, запускаю программу, данные ввожу, а когда надо читать данные из файла пишет, что неверный числовой формат при вводе... не понимаю чё за фигня ((( вот обновлённый код:

uses crt;
var f,f1: text;
    fam: string;
    imja: string;
    ball1,ball2,ball3: integer;
    s,t: string;
    r,max: integer;
    otv: char;
    i: byte;
    sum:array[1..250]of integer;

begin

assign(f,'F:\inputP.txt');
rewrite(f);
repeat
clrscr;
writeln('Ââåäèòå ôàìèëèþ ó÷åíèêà ');
readln(fam);
writeln;
writeln('Ââåäèòå èìÿ ó÷åíèêà ');
readln(imja);
writeln;
writeln('Ââåäèòå êîëè÷åñòâî áàëëîâ çà 1å çàäàíèå ');
readln(ball1);
writeln;
writeln('Ââåäèòå êîëè÷åñòâî áàëëîâ çà 2å çàäàíèå  ');
readln(ball2);
writeln;
writeln('Ââåäèòå êîëè÷åñòâî áàëëîâ çà 3å çàäàíèå *');
readln(ball3);

writeln(f,fam:20,imja:15,ball1:2,ball2:2,ball3:2);

clrscr;
writeln('Çàêîí÷èòü ââîä äàííûõ? ');
readln(otv);
until otv in ['Y','y','Ä','ä'];
close(f);

reset(f);
i:=0;
while not eof(f) do
begin
  readln(f,s,ball1,ball2,ball3);
  sum[r]:=ball1+ball2+ball3;
end;
  begin
  max:=sum[1];
for r:=2 to 250 do
  begin
     if max<sum[r] then
       max:=sum[r];
  end;
  
  writeln(s,' ',ball1,' ',ball2,' ',ball3);
  end;
end.

и ещё не знаю, как сделать так чтобы потом выводилась на экран та строка которой соответствует максимальное значение суммы баллов... помогите пожалуйста