В типизированном файле поменять местами минимальный и максимальный элементы.

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.

min:=a[0];

i:=0; min:=a[i];

program maxmin;
uses crt;
var
q:file of real;
min,max:real;
a:array[1..100] of real;
i,nommax,nommin:integer;
begin
clrscr;
assign(q,'D:\pas\files\Q.DAT');
reset(q);
for i:=0 to filesize(q)-1 do
begin
read(q,a[i]);
writeln(a[i]);
end;
 
min:=a[0];
max:=a[0];
nommin:=0;
nommax:=0;
 
 
for i:=1 to filesize(q)-1 do
begin
 
if a[i]<min then
begin
min:=a[i];
nommin:=i;
end;
 
if a[i]>max then
begin
max:=a[i];
nommax:=i;
end;
end;
writeln('min=',min);
writeln('max=',max);
 
writeln('nommin=',nommin);
writeln('nommax=',nommax);
 
seek(q,nommax);
write(q,min);
seek(q,nommin);
write(q,max);
close(q);
 
reset(q);
for i:=0 to filesize(q)-1 do
begin
read(q,a[i]);
writeln(a[i]);
end;
close(q);
 
readln
end.

a:array[0..100] of real;

for i:=0 to filesize(q)-1 do
begin
read(q,a[i+1]);

reset(f);
read(f, min)
while not eof(f) do
 begin
  read(f,a);//здесь а просто var a:integer;
  if a<min then min:=a;
 end;
close(f);

program maxmin;
uses crt;
var q:file of real;
    min,max,a:real;
    i,nommax,nommin:integer;
begin
clrscr;
assign(q,'Q.DAT');//у меня файл в папке с программой
reset(q);
writeln('Исходный файл:');
read(q,min);
write(min:0:2,' ');
max:=min;
nommin:=0;
nommax:=0;
for i:=1 to filesize(q)-1 do
 begin
  read(q,a);
  write(a:0:2,' ');
  if a<min then
   begin
    min:=a;
    nommin:=i;
   end
  else if a>max then
   begin
    max:=a;
    nommax:=i;
   end;
 end;
writeln;
writeln('min=',min:0:2);
writeln('max=',max:0:2);
writeln('nommin=',nommin);
writeln('nommax=',nommax);
seek(q,nommax);
write(q,min);
seek(q,nommin);
write(q,max);
close(q);
reset(q);
for i:=0 to filesize(q)-1 do
 begin
  read(q,a);
  write(a:0:2,' ');
 end;
close(q);
readln
end.