Дан файл 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.