Исправить прогу)

uses crt;
var f:file of real;
    a,mn,mx,sm:real;
begin
clrscr;
assign(f,'filef');
rewrite(f);
writeln('Введите в файл действительные числа, окончание ввода ноль.');
repeat
readln(a);
write(f,a);
until a=0;
clrscr;
writeln('Содержание файла F:');
reset(f);
read(f,mn);
mx:=mn;
write(mn:6:2);
while not eof(f) do
 begin
  read(f,a);
  write(a:6:2);
  if a<mn then mn:=a
  else if a>mx then mx:=a;
 end;
writeln;
writeln('max=',mx:0:2,'  min=',mn:0:2);
close(f);
sm:=mn+mx;
write('Summa min+max=',sm:0:2);
readln
end.

uses
  crt;
 
var
  f: file of real;
  a, mn, mx, sm: real;
  i,  n: byte;
 
begin
  clrscr;
  randomize;
  assign(f, 'filef');
  rewrite(f);
  writeln(' Введите количество чисел -->> ');
  readln(n);
  for i := 1 to n do 
    begin
      a := random(201) - 100;
      write(f, a);
    end;
  writeln('Содержание файла F:');
  reset(f);
  read(f, mn);
  mx := 1;
  mn := 1;
  write(mn:6:2);
  while not eof(f) do
  begin
    read(f, a);
    write(a:6:2,' ');
    if a < mn then mn := a
    else if a > mx then mx := a;
  end;
  
  writeln;
  writeln(' max = ', mx:0:2, '  min = ', mn:0:2);
  close(f);
  sm := mn + mx;
  write(' Summa min + max = ', sm:0:2);
  readln
end.