Поменять в файле минимальный и максимальный элемент

uses crt;
var f:file of real;//файл вещественных чисел
    a,b,max,min,x:real;
    i,imn,imx:integer;
begin
clrscr;
assign(f,'fileF');
rewrite(f);
writeln('Введите в файл действительные числа, окончание ввода 0:');
repeat
write('a=');
readln(a);
write(f,a);
until a=0;
clrscr;
writeln('Содержание исходного файла:');
reset(f);
while not eof(f) do
 begin
  read(f,a);
  write(a:0:2,' ');
 end;
writeln;
close(f);
reset(f);
read(f,min);//читаем первое число, оно пока мин
max:=min;//и макс
imn:=0;//их индекс
imx:=0;
for i:=0 to filesize(f)-1 do//идем до конца файла
 begin
  seek(f,i);
  read(f,a);
  if a>max then
   begin
    max:=a;//находим макс и его индекс
    imx:=i;
   end;
  if a<min then
   begin
    min:=a;//тоже мин
    imn:=i;
   end;
 end;
close(f);
writeln;
writeln('Минимальный =',min:0:2,' его индекс=',imn);
writeln('Максимальный=',max:0:2,' его индекс=',imx);
writeln;
reset(f);
seek(f,imn);//встаем в позицию мин
read(f,a);//читаем
seek(f,imx);//в позицию макс
read(f,b);//читаем
seek(f,imn);//все наоборот, меняем
write(f,b);
seek(f,imx);
write(f,a);
close(f);
writeln('Содержание файла после обмена макс и мин элементов:');
reset(f);
while not eof(f) do
 begin
  read(f,a);
  write(a:0:2,' ');
 end;
close(f);
readln
end.