Поменять местами строки, столбцы в матрице (чтобы упорядочить главную диагональ)

type
  a = array[1..100,1..100] of integer;
  
var
  mas:a;
  m,i,j,k:integer;
  flag:boolean;
 
function check(mas1:array [1..100,1..100] of integer;m1:integer):boolean;
var
  i1,j1:integer;
  flag1:boolean;
begin
  for i1:=1 to m1-1 do
  for j1:=i1 to m1-1 do
    if mas1[i1,j1]<mas1[i1+1,j1+1] then
    flag1:=true else
    flag1:=false;
  check:=flag1;
end;
 
begin
  writeln('количество строк и столбцов:');
  readln(m);
  writeln('вводите элементы массива:');
  for i:=1 to m do
  for j:=1 to m do
    readln(mas[i,j]);
  writeln('исходный массив:');
  for i:=1 to m do
    begin
      for j:=1 to m do
      write(mas[i,j]:3);
      writeln;
    end;
  flag:=check(mas,m);
  if flag=true then writeln('диагональ упорядочена по возрастанию')
  else writeln('диагональ упорядочена не по возрастанию');
end.

uses crt;
type
matr=array[1..20,1..20] of integer;
procedure Vvod(var mas1:matr;var m1:integer);
var i,j:integer;
begin
writeln('Введите размер матрицы:');
readln(m1);
writeln('Введите ',m1*m1,' элементов матрицы:');
for i:=1 to m1 do
for j:=1 to m1 do
readln(mas1[i,j]);
clrscr;
end;
procedure Vyvod(var mas1:matr;m1:integer);
var i,j:integer;
begin
for i:=1 to m1 do
  begin
    for j:=1 to m1 do
    write(mas1[i,j]:3);
    writeln;
  end;
end;
function check(mas1:matr;m1:integer):boolean;
var
i1,j1:integer;
begin
check:=true;
for i1:=1 to m1-1 do
if mas1[i1,i1]>=mas1[i1+1,i1+1] then
 begin
  check:=false;
  break;
 end;
end;
procedure Obmen(var mas1:matr;m1,x,y:integer);
var i,b:integer;
begin
for i:=1 to m1 do
 begin
  b:=mas1[x,i];{меняем строки с номерами x,y}
  mas1[x,i]:=mas1[y,i];
  mas1[y,i]:=b;
 end;
for i:=1 to m1 do
 begin
  b:=mas1[i,x];{меняем столбцы с номерами x,y}
  mas1[i,x]:=mas1[i,y];
  mas1[i,y]:=b;
 end;
end;
 
var
a:matr;
m,i,j:integer;
begin
clrscr;
Vvod(a,m);
writeln('Исходный массив:');
Vyvod(a,m);
if check(a,m) then
 begin
  writeln('Диагональ упорядочена по возрастанию!');
  readln;
  exit;
 end
else
 begin
  for i:=1 to m-1 do{сортировка обменом строк и столбцов}
  for j:=i+1 to m do
  if a[i,i]>a[j,j] then Obmen(a,m,i,j);{по возрастанию диагонального элемента}
 end;
writeln('Матрица с диагональю, упорядоченной по возрастанию:');
Vyvod(a,m);
readln
end.

     writeln('ucxogHa9I maTpuLLa:');
      For i:=1 to 5 do
       begin
        For j:=1 to 5 do
        begin
        m[i, j]:=Random(9)+1;
        Write(m[i, j]:3);
       end;
       writeln;
     end;

mx:=m[1];mn:=m[1];
for i:=1 to n do
for j:=1 to n do
 begin
  if m[i,j]>mx then mx:=a[i,j];
  if a[i,j]<mn then mn:=a[i,j];
 end;

mx:=m[1,1];mn:=m[1,1];
for i:=1 to n do
for j:=1 to n do
 begin
  if m[i,j]>mx then mx:=m[i,j];
  if m[i,j]<mn then mn:=m[i,j];
 end;