var
  name, fam: array[1..100] of string;
  gol: array[1..100] of integer;
  max, i, n, k: integer;
  
begin
  write('Введите количество футболистов: ');
  readln(n);
  
  for i := 1 to n do
    begin
      writeln('ФУТБОЛИСТ №',i);
      write(' Имя: ');
      readln(name[i]);
      write(' Фамилия: ');
      readln(fam[i]);
      write(' Кол-во голов: ');
      readln(gol[i]);
    end;
  
  max := 0; 
  for i := 1 to n do
      if max < gol[i] then 
        begin
          k := i;
          max := gol[i];
        end;
  
  writeln('Футболист забивший больше всего голов: ',name[k],' ',fam[k],'; кол-во голов: ',gol[k]);
end.