Написать программу, создающую типизированный файл данных - Pascal

Формулировка задачи:

При решении задачи использовать типа данных "запись". Написать программу, создающую типизированный файл данных, соответствующий условию задачи Решить задачу с использованием данных созданного файла. О каждом из спортсменов известные фамилия, страна, которую он представляет, и число набранных баллов. Вывести фамилию и страну победителя соревнований. Вот создал как бы написал программу создающую типизированный файл данных

Program n1;
uses crt;
type sport=record
f1:string[30];
s:string[30];
ball:real;
end;
var f:file of sport;
 sorevn:array[1..10] of sport;
 i,n,v,m:integer;
begin
clrscr;
write('Vvedite kolichestvo sportsmenov:'); readln(n);
writeln('Vvedite svedenija o sportsmenah');
assign(F,'sorevn.txt');
rewrite(f);
for i:=1 to n do
begin
write('Familija:');
readln(sorevn[i].f1);
write('Strana:');
readln(sorevn[i].s);
write('Balli:');
readln(sorevn[i].ball);
writeln('----------');
end;
close(f);
readkey
end.

Теперь надо Решить задачу с использованием данных созданного файла. Вот это не получается(( Победителя вывести

Program n1;
uses crt;
type sport=record
f1:string[30];
s:string[30];
ball:real;
end;
var f:file of sport;
 sorevn:array[1..10] of sport;
 i,n,v:integer;max:real;
begin
clrscr;
assign(F,'sorevn.txt');
reset(f);
max:=sorevn[1].ball;
for i:=2 to n do
if sorevn[i].ball>max then max:=sorevn[i].ball;
close(f);
writeln(max:3:1);
readkey
end.

И созданный файл почему то 0 байт ((((((

) с

Решение задачи: «Написать программу, создающую типизированный файл данных»

Листинг программы

Program n1;
uses crt;
type sport=record
f1:string[30];
s:string[30];
ball:real;
end;
var f:file of sport;
 sorevn:array[1..10] of sport;
 i,n,v:integer;max:real; s1:integer;
begin
clrscr;
assign(F,'sorevn.txt');
reset(f);
writeln('');
writeln('Pobeditel sorevnovaniy:');
max:=0;
while not eof(f) do begin
inc(i);
read(f,sorevn[i]);
if sorevn[i].ball>max then max:=sorevn[i].ball;
if sorevn[i].ball=max then
begin
write(sorevn[i].f1,' ');
writeln(sorevn[i].s);
writeln(sorevn[i].ball:3:1);
end;
end;
close(f);
readkey
End.

Объяснение кода листинга программы

Создаётся программа на языке Pascal с использованием библиотеки CRT (Console I/O).
Определяется тип записи sport с полями f1, s и ball.
Создаётся файл sorevn.txt для записи данных.
Открывается файл sorevn.txt на чтение.
Задаётся вопрос Pobeditel sorevnovaniy: и выводится на экран.
Создаются переменные i, n, v, max и s1 типа integer.
В цикле while с условием not eof(f) происходит чтение данных из файла в массив sorevn.
Если значение поля ball в текущей записи больше максимального значения max, то обновляется значение max.
Если значение поля ball в текущей записи равно максимальному значению max, то выводится на экран значение поля f1, затем значение поля s и значение поля ball с форматированием 3 знака после запятой.
После окончания цикла while закрывается файл sorevn.txt.
Программа ожидает нажатия клавиши для завершения работы.