В матрице А размерам 6 на 6 найти наибольший и наименьший по модулю элементы и поменять их местами- Pascal(Паскаль)

program Project1;

{$APPTYPE CONSOLE}

var
 a:array[1..6,1..6] of integer;
 i,j:integer;
 max,min:integer;

begin

for I := 1 to 6 do
  for j := 1 to 6 do
    readln(a[i,j]);

    max:=abs(a[1,1]);
    min:=abs(a[1,1]);

    for I := 1 to 6 do
    for j := 1 to 6 do
     if max<abs(a[i,j]) then
      max:=abs(a[i,j]);


     for I := 1 to 6 do
    for j := 1 to 6 do
    if min>abs(a[i,j]) then
     min:=abs(a[i,j]);

writeln('max=',max);
writeln('min=', min);

readln;



end.