Дана матрица NxM. Переставить ее строки и столбцы...

Uses crt;
var a:array[1..100,1..100]of integer;
N,M,maxi, maxj :integer;
i,j:byte;
begin
clrscr;
 writeln('размер матрицы NхM -> ');
 read(N, M);
 randomize;
 for i:=1 to N do
 begin
 for j:=1 to M do
  begin
 a[i,j]:=random(100);
 write('    A[',i,',',j,']->',a[i,j]:2);
   end;
  writeln;
    end;
maxi:=1;
maxj:=1;
 for i:=1 to N do for j:=1 to M do
 if a[i,j] > a[maxi, maxj] then
 begin
  maxi := i;
  maxj := j;
 end ;
 writeln('   MAX = A[',maxi,',',maxj,'] = ', a[maxi, maxj]);
 a[1,1]:=a[maxi, maxj]; {ВОТ ЗДЕСЬ Я ТУПО ПОСТАВИЛ МАКС.ЗНАЧЕНИЕ В НАЧАЛЕ,НО НУЖНО ЖЕ И СТОЛБЦЫ/СТРОКИ ПРЕНЕСТИ. НО КАК??}
 for i:=1 to N do
 begin
 for j:=1 to M do
 write('    A[',i,',',j,']->',a[i,j]:2);
 writeln;
 end;
 end.

Uses crt;
Type mas = array[1..200,1..200] of integer;
Var A: mas;
    m,n,i,j,k,imax,jmax: integer;
Begin ClrScr;
Randomize;
Write('Ââåäèòå m: '); ReadLn(m);  {êîëè÷åñòâî ñòðîê}
Write('Ââåäèòå n: '); ReadLn(n);   {êîëè÷åñòâî ñòîëáöîâ}
imax:=1; jmax:=1;
For i:=1 to m do begin
   For j:=1 to n do begin
   A[i,j]:=random(100);
   if a[i,j] > a[imax, jmax] then
 begin
  imax:= i;
  jmax:= j;
 end;
   write(A[i,j]:3);
   end;
   WriteLn;
end;
writeln;
writeln('Ìàêñèìàëüíûé ýëåìåíò: A[',imax,',',jmax,']: ',a[imax,jmax]);
writeln;
for i:=1 to m do begin
 for j:=1 to n do begin
   k:= a[i,j];
   a[i,j] := a[imax,jmax];
   a[imax,jmax] := k;
   end;
   end;
for i:=1 to m do
 begin
 for j:=1 to n do
  write(a[i,j]:3);
 writeln;
 end;
readkey
end.