Дан файл действительных чисел. Найти сумму наибольшего и наименьшего компонент

const fname='fileF';//имя файла
var
  Form1: TForm1;
  f:file of real; //типизированный файл целого типа
implementation
 
{$R *.dfm}
//создание файла
procedure TForm1.Button1Click(Sender: TObject);
var a:real;
    i:integer;
begin
randomize;
assignfile(f,fname);
rewrite(f);
for i:=1 to 15 do
 begin
  a:=10*random;
  write(f,a);
 end;
ShowMessage('Файл создан') 
end;
//чтение файла и решение задачи
procedure TForm1.Button2Click(Sender: TObject);
var a,mn,mx,s:real;
begin
if not fileexists(fname) then
 begin
  ShowMessage('Файл еще не создан, вернитесь к пункту 1');
  exit
 end;
Memo1.Clear;
seek(f,0);
read(f,mn);
mx:=mn;
while not eof(f) do
 begin
  read(f,a);
  Memo1.Lines.Add(floattostrF(a,ffFixed,6,2));
  if a<mn then mn:=a
  else if a>mx then mx:=a
 end;
closefile(f);
s:=mn+mx;
Memo1.Lines.Add('Минимум='+floattostrF(mn,ffFixed,6,2));
Memo1.Lines.Add('Максимум='+floattostrF(mx,ffFixed,6,2));
Memo1.Lines.Add('Сумма='+floattostrF(s,ffFixed,6,2));
 
end;