Вывести на экран фамилию и имя участника набравшего максимальное количество баллов

uses crt;
type uchastnik=record
               fam:string[20];
               im:string[15];
               bal:array[1..3]of integer;
               sum:integer;
               end;
var f:file of uchastnik;
    z:uchastnik;
    n,i,j,mx:integer;
begin
write('Количество участников олимпиады n=');
read(n);
writeln('Введите данные');
assign(f,'olimpiada');
rewrite(f);
for i:=1 to n do
 begin
  writeln('Участник ',i);
  with z do
   begin
    write('Фамилия: ');read(fam);
    write('Имя: ');read(im);
    writeln('Набранные баллы по 25 балльной системе:');
    sum:=0;
    for j:=1 to 3 do
     begin
      repeat
      write('Балл ',j,'=');
      read(bal[j]);
      until bal[j] in [0..25];
      sum:=sum+bal[j];
     end;
    write(f,z);
   end
 end;
clrscr;
writeln('Список участников:');
writeln('------------------------------------------------------');
writeln('|      Фамилия      |      Имя       | Баллы   |Сумма|');
writeln('------------------------------------------------------');
seek(f,0);
mx:=0;
while not eof(f) do
 begin
  read(f,z);
  with z do
   begin
    if sum>mx then mx:=sum;
    gotoXY(1,whereY);write('|',fam);
    gotoXY(21,whereY);write('|',im);
    gotoXY(38,whereY);write('|');
    for i:=1 to 3 do write(bal[i]:3);
    gotoXY(48,whereY);write('|',sum:5);
    gotoXY(54,whereY);writeln('|');
   end;
 end;
writeln('------------------------------------------------------');
writeln('Максимальная сумма баллов=',mx);
writeln('Ее набрали:');
seek(f,0);
while not eof(f) do
 begin
  read(f,z);
  if z.sum=mx then writeln(z.fam,' ',z.im);
 end;
close(f);
end.