Типизированные файлы: Найти призеров, занявших 1, 2 и 3 места в гонке

uses crt;
type protokol=record
     fio: string;
     vrem_s: string;
     vrem_f: string;
     end;
 
var lzh: array [1..10] of protokol;
i,j,n: byte;
f1: text;
x: protokol;
begin
clrscr;
assign (f1, 'file.txt');
rewrite (f1);
writeln ('Vvedite kol-vo sportsmenov');
readln (n);
for i:=1 to n do
   begin
   writeln ('Vvedite svedenia o', ' ', i,'-m sportsmene');
   writeln ('Vvedite f.i.o.');
   readln (lzh[i].fio);
   writeln ('Vvedite vremya starta');
   readln (lzh[i].vrem_s);
   writeln ('Vvedite vremya finisha');
   readln (lzh[i].vrem_f);
   writeln (f1, lzh[i].fio, '   ', lzh[i].vrem_s, '   ', lzh[i].vrem_f);
   end;
   writeln;
   close (f1);
 
for i:=1 to n-1 do
for j:=i+1 to n do
 if lzh[i].vrem_f>lzh[j].vrem_f then
   begin
    x:=lzh[i];
    lzh[i]:=lzh[j];
    lzh[j]:=x;
   end;
 
append (f1);
writeln;
writeln (f1, 'Prizeri:');
for i:=1 to n do
writeln (f1, i, '.', '    ',lzh[i].fio, '    ', lzh[i].vrem_s, '    ', lzh[i].vrem_f);
close (f1);
end.

Mesto_1:=0;
Mesto_2:=0;
Mesto_3:=0;
min:=Lj[1].time_Finish;
 
For i:=1 to n do
 If min> Lj[i].time_Finish then
  min:=Lj[i].time_Finish;
Mesto_1:=min;
 
min:=Lj[1].time_Finish;
 
For i:=1 to n do
 If (min> Lj[i].time_Finish) and (Mesto_1<>min) then
  min:=Lj[i].time_Finish;
Mesto_2:=min;
 
For i:=1 to n do
 If (min> Lj[i].time_Finish) and (Mesto_1<>min) and (Mesto_2<>min) then
  min:=Lj[i].time_Finish;
Mesto_3:=min;