Определить максимальный и минимальный элементы в файле и поменять их местами

uses crt;
const n=5;
      m=7;
var 
    vmin,vmax,i,x,imn,z,s,max,min,q,imx:integer;
    f:text;
begin
clrscr;
repeat
writeln('Введите границы диапaзона чисел:');
readln(vmin,vmax);
until vmin<vmax;
 
assign(f, '122.txt');
rewrite(f);
 
for i:=1 to n*m do
 begin
  s:=vmin+random(vmax-vmin+1);
  write(f, s:4);
  if (i mod m=0)and(i<n*m) then writeln(f);
 end;
close(f);
 
reset(f); 
while not eof(f) do 
begin
   for i:=1 to m do begin
    read(f, s); 
    write(s:4); 
 end;
 writeln;
end;
close(f); 
writeln;
reset(f); 
imn:=0;
imx:=0;
writeln;
x:=0;
max:=0;
min:=vmax;
 
for z:=1 to n*m do begin 
    x:=x+1;
    read(f, s); 
     
      if s<min then begin
    min:=s;
    imn:=x;
      end; 
   
  if s>max then begin
    max:=s; 
    imx:=x;
      end;    
end;
close(f); 
writeln('Минимальный =',min:2,' его индекс=',imn);
writeln('Максимальный=',max:2,' его индекс=',imx);
writeln;
//Тут нужно как-то поменять и вывести
reset(f); 
while not eof(f) do 
begin
   for i:=1 to m do begin      
    read(f, s); 
    write(s:4);
 end;
 writeln;
end;
 end.