За один просмотр файла найти три наибольших его элемента

var
  Form1: TForm1;
  f: file of double;
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
var n,i: integer;
    a: double;
begin
randomize;
AssignFile(f,'doublefile');//создадим типизированный файл
Rewrite(f);
n:=random(50);
Label2.Caption:='';
for i:=1 to n do
 begin
  a:=20*random;
  write(f,a);
  Label2.Caption:=Label2.Caption+format('%5.2f',[a])+'  ';
 end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var a,b,c,m1,m2,m3:double;
begin
 reset(f);
 if filesize(f)<3 then
  begin
   ShowMessage('В файле нет трех чисел');
   exit;
  end;
 //расставим по убыванию первые 3 числа
 read(f,a,b,c);
 if a>b then m1:=a else m1:=b;
 if c>m1 then m1:=c;
 if a<b then m3:=a else m3:=b;
 if c<m3 then m3:=c;
 m2:=a+b+c-m1-m2;
 while not eof(f) do
  begin
   read(f,a);
   if a>m1 then
    begin
     m3:=m2;
     m2:=m1;
     m1:=a;
    end
   else if a>m2 then
    begin
     m3:=m2;
     m2:=a;
    end
   else if a>m3 then m3:=a;
  end;
closefile(f);
Label4.Caption:=format('%5.2f',[m1])+'  '+format('%5.2f',[m2])+'  '+format('%5.2f',[m3]);
end;