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

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var
i,j,n,m,q,f,buf:integer;
A:array [1..100,1..100] of integer;
 
begin
randomize;
writeln('vvedite kol-vo strok');
readln(n);
writeln('vvedite kol-vo stolbcov');
readln(m);
for i:=1 to n do
begin
 for j:=1 to m do
  begin
   A[i,j]:=random(41)-15;
   write(A[i,j]:6);
  end;
 writeln;
end;
q:=1;           //nahozhdenie maksimalnogo elementa
f:=2;
for i:=1 to n do
begin
 for j:=1 to m do
 begin
   if abs(A[i,j])>abs(A[q,f]) then
   begin
   q:=i;                  //zapominaem stroky i stolbec
   f:=j;
   end;
  end;
 end;
writeln(q,' stroka');
writeln(f,' stolbec');
 
i:=q;                     //obmen stoki q i pervoi stroki
for j:=1 to m do
begin
 buf:=A[i,j];
 A[i,j]:=A[1,j];
 A[1,j]:=buf;
end;
 
j:=f;                  //obmen stolbca f i pervogo stolbca
for i:=1 to n do
begin
 buf:=A[i,j];
 A[i,j]:=A[i,1];
 A[i,1]:=buf;
end;
for i:=1 to n do
begin
 for j:=1 to m do
 begin
  write(A[i,j]:6);
 end;
writeln;
end;
readln;
end.