Вывести команду, у которой гонорар больше всех

Program K_netip;
uses crt;
type
 Futbol=Record
 name:string;
 gol:integer;
 Zar:integer;
 end;
 xmas=array [1..100] of futbol;
 var
  f:file ;
  w,n,i:byte;
  s:integer;
  max1:real;
  max:real;
  maxi:integer;
  m:xmas;
  procedure vvod(var n:byte; var m:xmas);
  var a:char;
      s:byte;
      f:file ;
    begin
     textcolor(yellow);
     clrscr;
     assign(f,'dop.dat');
     rewrite(f);
     reset (f);
     n:=4;
     for i:=1 to n do
     begin
     writeln ('Введите название команды= ');
     readln (m[i].name);
     writeln ('Введите количество голов в сезоне= ');
     readln (m[i].gol);
     writeln ('Введите гонорар 1-го игрока= ');
     readln (m[i].Zar);
     end;
     Close(f);
 end;
 
 procedure vivod(var m:xmas);
 var f:file ;
 begin
     assign (f,'Dop.dat');
     reset(f);
     Writeln('Прайс лист':40);
                writeln;
                writeln('-------------------------------------------------------------');
                writeln('│Название команды │ Количество голов │  Гонорар 1-го игрока │');
                writeln('-------------------------------------------------------------');
  For i:=1 to n do
       begin
     gotoXY(3,whereY);  write (m[i].name);
     gotoXY(23,whereY); write (m[i].gol);
     gotoXY(43,whereY); write (m[i].Zar);
     Writeln;
       end;
       close(f);
       writeln;
end;
 
procedure zadanie(var m:xmas);
 begin
     assign (f,'Dop.dat');
     reset (f);
     i:=1;
     While not eof(f) do  begin
     Blockread(f,m[i],1);
     i:=i+1;
     end;
     n:=i-1;
     max1:=m[1].Zar;
     max:=m[1].gol;
     for i:=1 to n do
      if max1<m[i].Zar   then max1:=m[i].Zar;
 
for i:=1 to n do
 if max1=m[i].zar then
   if  max<m[i].gol  then  begin
         max:=m[i].gol;
         maxi:=i;
         end;
 
     writeln (max1:3:1);
     writeln (max:3:1);
     writeln;
close(f);
end;
 
 
begin
     clrscr;
     textcolor (yellow);
     w:=0;
     writeln ('Menu');
     while w<=3 do
           begin
                writeln ('1:Formirovanie zapisi');
                writeln ('2:Vivod ');
                writeln ('3:Zadanie');
                writeln('4:Vihod');
                readln(w);
           case w of
           1:vvod(n,m);
           2:vivod(m) ;
           3:zadanie(m);
           end;
           end;
           end.
readln;
 end.