дан файл 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 < a then amax := a  end;  Close(f);  writeln('Сумма минимального и максимального элементов равна ', amin + amax)end.