Переставляя строки и столбцы матрицы, добиться того, чтобы ее наибольший элемент оказался в нижнем правом углу

uses crt;
var
matrix: array [1..3,1..4] of byte;
i,j,max,tmp,n: byte;
begin
writeln('Матрица:');
for i:=1 to 3 do
begin
for j:=1 to 4 do
begin
matrix[i,j]:=random(30);
write(matrix[i,j],' ');
end;
writeln();
end;
writeln('Преобразованная матрица:');
max:=matrix[1,1];
for i:=1 to 3 do
for j:=1 to 4 do
if (matrix[i,j] > max) then
begin
n:=j;
end;
begin
tmp:=matrix[i,n];
matrix[i,n]:=matrix[3,4];
matrix[3,4]:=tmp;
end;
for i:=1 to 3 do
begin
for j:=1 to 4 do
begin
write(matrix[i,j],' ');
end;
writeln();
end;
end.

program arrays;
uses crt;
const n=3;
const m=4;
var a:array[1..n,1..m]of Integer;
i,j,maxi,maxj,l:Integer;
begin
ClrScr;
Randomize;
for i:=1 to n do
for j:=1 to m do a[i,j]:=Random(101)-50;  
Writeln('Матрица(3х4),заполненная случайными числами:');
for i:=1 to n do
begin
for j:=1 to m do Write(a[i,j]:4);
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;
for i:=1 to n do
begin
l:=a[i,maxj];
for j:=maxj+1 to m+1 do
if j<>m+1 then a[i,j-1]:=a[i,j] else
a[i,j-1]:=l;
end;
for j:=1 to m do
begin
l:=a[maxi,j];
for i:=maxi+1 to n+1 do
if i<>n+1 then a[i-1,j]:=a[i,j] else
a[i-1,j]:=l;
end;
Writeln('Полученная матрица:');
for i:=1 to n do
begin
for j:=1 to m do Write(a[i,j]:4);
Writeln;
end;
Readln;
end.