Программа для формирования файла с числами:
var
f:text;r:real;i:integer;
begin
Randomize;
assign(f,'input.txt');
rewrite(f);
for i:=1 to 20 do
 begin
 r:=random*10;
 write(f,r:5:2);
 write(r:5:2);
 end;
writeln;
close(f);
end.

Программа для решения задачи:
var
f:text;
r,min,max:real;
i:integer;
begin
Randomize;
assign(f,'input.txt');
reset(f);
read(f,max,min);
write(max:5:2,min:5:2);
i:=2;
while not eof(f) do
 begin
 inc(i);
 read(f,r);
 write(r:5:2);
 case i mod 2 of
  0: if r<min then min:=r;
  1: if r>max then max:=r;
 end;
 end;
writeln;
writeln('min=',min,'   max=',max);
close(f);
end.

Пример работы программы:
 6.68 1.30 6.61 7.96 0.68 5.48 5.64 9.56 9.42 5.32 7.03 5.88 9.59 7.79 1.27 4.89 6.11 0.42 7.81 0.75
min=0.42   max=9.59