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

Const m=100; n=100;
var s:array[1..m,1..n] of integer;
    imin,imax,jmin,jmax:integer;
min,max,i,j:integer;
begin
 
 for i:=1 to m do
  for j:=1 to n do
   S[i,j]:=random(40);
 
 for i:=1 to m do
  begin
   write('|');
    for j:=1 to n do
     write(s[i,j],' ');
   writeln('|');
   end;
 
 
 
 min:=S[1,1];
  imin:=1;
  jmin:=1;
 for i:=1 to n do
  for j:=1 to m do
   if min>S[i,j] then
    begin
     min:=s[i,j];
     imin:=i;
     jmin:=i;
    end;
 
 max:=S[1,1];
  imax:=1;
  jmax:=1;
  for i:=1 to n do
   for j:=1 to m do
    if max<S[i,j] then
     begin
      max:=S[i,j];
      imax:=i;
      jmax:=j;
     end;
 
  i:=S[imin,jmin];  
  S[imin,jmin]:=S[imax,jmax]; {min:=max}
  S[imax,jmax]:=i;
 
 
 
  writeln('Минимальный элемент под номером: ',imin,' ',jmin);
  writeln('Максимальный элемент под номером: ',imax,' ',jmax);
writeln('Новая матрица:');
for i:=1 to m do
  begin
   write('|');
    for j:=1 to n do
     write(s[i,j],' ');
   writeln('|');
   end;