В данном двумерном массиве упорядочить элементы, расположенные между минимальным и максимальным элементами по убыванию

var a:array[1..100,1..100] of integer;
    m,n,i,j,k,x,p : integer;
begin
 write('Количество строк m= ');
 readln(m);
 write('Количество столбцов n= ');
 readln(n);
 
 for i:=1 to m do
  begin
   for j:=1 to n do
    begin
    writeln('Введите ',i,' ',j,' элемент массива: '); readln(p);
     a[i,j]:=p;
    end;  
   writeln;
  end;
  
writeln('Исходная матрица: ');
   for i:=1 to m do
     begin
      for j:=1 to n do
        write(a[i,j],' ');
writeln;
      end;
  
 for i:=1 to m do
  for j:=1 to n-1 do
   for k:=j+1 to n do
    if a[i,j]<a[i,k] then
     begin
      x:=a[i,j];
      a[i,j]:=a[i,k];
      a[i,k]:=x;
     end;   
     
 writeln('Отсортированная матрица: ');
 for i:=1 to m do
  begin
   for j:=1 to n do
   write(a[i,j],' ');
   writeln;
  end;
 readln
end.

const nmax=10;
var a:array[1..nmax,1..nmax] of integer;
    m,n,i,j,k,i1,ip,min,max,x:integer;
begin
repeat
randomize;
write('Количество строк от 2 до ',nmax,' m=');
readln(m);
until m in [2..nmax];
repeat
write('Количество столбцов от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Исходная матрица:');
k:=0;
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(100);
    write(a[i,j]:4);
    inc(k);
    if i*j=1 then
     begin
      min:=a[i,j];
      max:=a[i,j];
      i1:=k;
      ip:=k;
     end
    else if a[i,j]<min then
     begin
      min:=a[i,j];
      i1:=k;
     end
    else if a[i,j]>max then
     begin
      max:=a[i,j];
      ip:=k;
     end;
   end;
  writeln;
 end;
writeln('Минимальный элемент a[',(i1-1)div n+1,',',(i1-1)mod n+1,']=',min,' его номер по порядку=',i1);
writeln('Максимальный элемент a[',(ip-1)div n+1,',',(ip-1)mod n +1,']=',max,' его номер по порядку=',ip);
if ip<i1 then
 begin
  x:=i1;
  i1:=ip;
  ip:=x;
 end;
if ip-i1<3 then writeln('Между минимальным и максимальным нет элементов для сортировки')
else
 begin
  for i:=i1+2 to ip-1 do
   begin
    x:=a[(i-1)div n+1,(i-1)mod n+1];
    j:=i-1;
    while (j>=i1+1) and (A[(j-1)div n+1,(j-1)mod n+1]<x) do
     begin
      a[j div n+1,j mod n+1]:=A[(j-1)div n+1,(j-1)mod n+1];
      j:=j-1;
    end;
   a[j div n+1,j mod n+1]:=x;
  end;
writeln('Отсортированная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
end;
end.