Поменять местами максимальный по степени 2 элемент среди минимальных элементов строк и минимальный элемент

Uses crt;
 Type
     Matr=Array [1..10,1..10] of integer;
     Color_matr=Array[1..10,1..10] of Byte;
 var n: byte; {n -порядок матрицы}
     A: Matr; {A-исходная матрица}
 Col_A: Color_Matr; {Col_A - матрица цветов}
  Name: string; {Name- заголовок матрицы}
 {Заполнение матрицы с помощью генератора случайных чисел}
   Procedure Init_Matr(Var n:Byte; Var B:Matr);
     Var i,j : Byte;
    Begin
     Textcolor(black);
     ClrScr;
     Write('Порядок матрицы n=(<=10)');
     Readln(n);
     For i:=1 to n do
     For j:=1 to n do
      B[i,j]:=Integer(Random(101))-50;{генератор чисел от-50 до 50 }
    End;
   {Заполнение матрицы цветов элементов исходной матрицы}
     Procedure Init_Color_Matr(n:Byte; Var Col_B:Color_Matr);
     Var i,j, Sr,Sr1: Byte;
      Begin
       Sr:=(n+1) div 2;
       Sr1:=n div 2 +1;
       For i:=1 to n do
       For j:=1 to n do
        Col_B[i,j]:=black;
       For i:=sr1 to n do
       For j:=n+1-i to sr do
        Col_B[i,j]:=red;
       For i:=1 to n do
       For j:=Sr1 to i do
        Col_B[i,j]:=green;
       For i:=1 to sr do
       For j:=1 to i do
        Col_B[i,j]:=red;
       For i:=sr1 to n do
       For j:=1 to n-i+1 do
        Col_B[i,j]:=green;
         For i:=1 to sr do
       For j:=sr1 to n-i+1 do
        Col_B[i,j]:=red;
       For i:=sr1 to n do
       For j:=i to n do
        Col_B[i,j]:=green;
 
 
      End;
 {процедура обмена элементов отмеченных подобластей матрицы}
       Procedure Obmen(n:byte; Var B:Matr);
       Var i,j,sr,sr1 : Byte;
                  buf : integer;
      Begin
       sr:=(n+1) div 2;
       sr1:=n div 2+1;
       For i:=sr1 to n do
       For j:=n-i+1 to sr do
        Begin
         Buf:=B[i,j];
         B[i,j]:=B[i,n-j+1];
         B[i,n-j+1]:=Buf;
        End;
         For i:=1 to sr do
       For j:=1 to i do
        Begin
         Buf:=B[i,j];
         B[i,j]:=B[n-i+1,j];
         B[n-i+1,j]:=Buf;
        End;
 
       For i:=1 to sr do
       For j:=sr1 to n  do
        Begin
         Buf:=B[i,j];
         B[i,j]:=B[n-i+1,j];
         B[j , n-i+1]:=Buf;
        End;
      End;
      {процедура вывода на экран монитора элементов матрицы}
     Procedure output_color_matr(n:Byte; B:matr;
                                 Col_B:Color_matr; Name:string);
      var i,j:byte;
     Begin
      Writeln;
      Writeln('  ', Name);
      Writeln;
      For i:=1 to n do
       Begin
        For j:=1 to n do
         Begin
          Textcolor(Col_B[i,j]);
          Write(B[i,j]:5);
         End;
        writeln;
       End;
     End;
 
   {Основная программа}
      Begin
        Randomize;
        Init_Matr(n,A);
        Init_Color_Matr(n,Col_A);
        Name:='Исходная матрица';
        TextBackground(15);
        clrscr;
        output_color_Matr(n,A,Col_A, Name);
        Obmen(n,A);
        Name:='Преобразованная матрица';
        textcolor(black);
        Output_color_matr(n,A,Col_A, Name);
        While not keypressed do;
        {Readln;}
     End.

const nMax=10; W=6; D=2;
type
  PElement = ^TElement;
  TElement = Real;
  TMatrix = array [1..nMax,1..nMax] of TElement;
 
procedure mWrite(const s: String; const a: TMatrix, n: Integer);
var i, j: Integer;
begin
  if s<>'' then WriteLn(s);
  for i:=1 to n do begin
    for j:=1 to n do Write(' ',a[i,j]:W:D); WriteLn;
  end;
end;
 
procedure Swp(var a, b: TElement);
var t: TElement;
begin
  t:=a; a:=b; b:=t;
end;
 
function Get1(const a: TMatrix; n: Integer): PElement;
var i, j: Integer; t, r: PElement;
begin
    r:=@a[1,1]; for j:=2 to n do if r^>a[1,j] then r:=@a[1,j];
  for i:=2 to n do begin
    t:=@a[i,1]; for j:=2 to n do if t^>a[i,j] then t:=@a[i,j];
    if Sqr(r^)<Sqr(t^) then r:=t;
  end;
  Get1:=r;
end;
 
function Get2(const a: TMatrix; n: Integer): PElement;
var i, j, k, m, t: Integer; r: PElement;
begin
  m:=1; k:=0;
  for j:=1 to n do begin
    for i:=1 to n do if a[i,j]<0 then Inc(t);
    if k<t then begin k:=t; m:=j; end;
  end;
  r:=@a[1,m];
  for i:=2 to n do if r^>a[i,m] then r:=@a[i,m];
  Get2:=r;
end;
...
  mWrite('A =',a,n); Swp(Get1(a,n)^,Get2(a,n)^); mWrite('A''=',a,n);
...