распечатать фамилии 3 самых результативных игроков команды.

uses crt;
type zap=record
         fam:string;
         kol:integer;
         end;
var f:file of zap;
    n,i,j:integer;
    a,b:zap;
begin
clrscr;
assign(f,'ochki');
rewrite(f);
repeat
writeln('Введите количество игроков, не менее 3х n=');
readln(n);
until n>2;
writeln('Введите фамилии игроков и набранные ими очки');
for i:=1 to n do
with a do
 begin
  write('Фамилия: ');readln(fam);
  write('Количество очков: ');readln(kol);
  write(f,a);
 end;
clrscr;
reset(f);
writeln('Содержание файла:');
for i:=0 to filesize(f)-1 do
 begin
  read(f,a);
  writeln(a.fam,' ',a.kol);
 end;
{отсортируем файл по убыванию}
seek(f,0);
for i:=0 to filesize(f)-2 do
for j:=i+1 to filesize(f)-1 do
 begin
  seek(f,i);
  read(f,a);
  seek(f,j);
  read(f,b);
  if a.kol<b.kol then
   begin
    seek(f,i);
    write(f,b);
    seek(f,j);
    write(f,a);
   end;
 end;
{выведем трех первых}
seek(f,0);
writeln('Самые результативные игроки:');
for i:=0 to 2 do
 begin
  seek(f,i);
  read(f,a);
  writeln(a.fam,' ',a.kol);
 end;
close(f);
readln
end.