Дан файл f компоненты которого являются действительными числами, найти сумму наибольшего и наименьшего из значений компонент. паскаль

Var
  f: file of real;
  a, amin, amax: real;

begin
  Assign(f, input.dat);
  Reset(f);
  amin := 1e-20;
  amax := 1e20;
  while not Eof(f) do
  begin
    read(f, a);
    if amin > a then amin := a;
    if amax   end;
  Close(f);
  writeln(Сумма минимального и максимального элементов равна , amin + amax)
end.