задача со строковыми данными, файловым вводом выводом

[Босикоша]

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

program qq;
var c,fam,name,h,fam1,name1:string;
f1,f2:text;
kol,gol,gol1,i:integer;
 begin
assign(f1,'input.txt');
assign(f2,'output.txt');
reset(f1);
rewrite(f2);
readln(f1,kol);
repeat read(f1,fam); until c=' ';
repeat read(f1,name); until c=' ';
readln(f1,gol);
for i:=1 to kol do
 begin
repeat read(f1,fam1); until c=' ';
repeat read(f1,name1); until c=' ';
readln(f1,gol1);
if gol1>gol then begin fam:=fam1; name:=name1; gol:=gol1;
 end;
str(gol,h);
c:=fam+' '+name+' '+h;
write(f2,c);
close(f1);
close(f2);
 end.

я сама пыталась решить, но ничего не работает.

[Poma][a]

Ну пользуйтесь же поиском!

uses crt;
 
type Fut = record
         Name: string[30];
         Gol : integer;
     end;
     
     
var a:array [1..20] of Fut;
i,MaxGol,n: integer;
 
 
begin
    repeat
    Write('Введите кол-во футболистов до 20*  Кол-во = ');readln(n);
    until (n>0) and (n<21);
    Writeln;
    MaxGol:=1;
    For i:=1 to n do
    begin
    Write('Введите И.Ф. ',i,'-го футболиста: ');readln(a[i].Name);
    repeat
    Write('Кол-во забитых голов: ');readln(a[i].Gol);
    until a[i].Gol>0;
    Writeln;
    if a[i].gol>MaxGol then MaxGol:=a[i].gol;
    end;
    Writeln;
    for i:=1 to n do
    begin
    if a[i].gol=MaxGol then Writeln('Футболист забивший наибольшее кол-во голов* ',a[i].name,' - ',a[i].gol,' гола(ов)');
    end;
    
end.

[whatever]

Сообщение от Poma][a

Ну пользуйтесь же поиском!

Хм... По поводу поиска: согласен на 100%.
По поводу кода: исходя из условий задачи (как я ее понял), записи тут не нужны, как и ввод данных. Просто читаем данные из втрой строки, пишем их в MFam,MName:string; Mgol:integer; затем читаем следующую строку в TFam,TName и Tgol. Если Mgol<Tgol, то записываем значения из "T" в "M". И так далее, пока не прочитаем весь файл. Затем пишем MFam,MName и Mgol в output.txt, и задача решена.

[Босикоша]

мне именно с вводом выводом нужно( это из требований к ЕГЭ, в моей программе почему-то пишет что файлы не закрыты хотя close(f1),close(f2) написала