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

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.

...
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('----------');
  
  (*Добавить эту строку:*)
  Write(f, sorevn[i]); (*Записываем очередную запись в файл f.*)
  
end;
close(f);
...

...
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);
  
  (*Прежде чем искать максимум надо считать данные из файла в массив sorevn*)
  i := 1;
  while ( not Eof(f) ) and ( i <= 10 ) do begin
    Read(f, sorevn[i]);
    Inc(i);
  end;
 
  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.
...

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.