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

uses crt;
const n=10
var a:array[1..n,1..n] of integer;
min,max,i,j:integer;
 
procedure swap(var a,b:integer);
var t:integer;
begin
 t:=a;
 a:=b;
 b:=t;
end;
 
begin
 clrscr;
 randomize;
 for i:=1 to 10 do
 begin
  for j;=1 to 10 do
  begin
   a[i,j]:=random(100);
   write(a[i,j]:3);
  end;
  writeln;
 end;
 
  min:=1;
  max:=2;
 
 for i:=1 to 10 do
 begin  
     for j:=1 to 10 do if a[i,j]>a[i,max] then max:=j else if a[i,j]<a[i,min] then min:=j; 
 end;
 swap(a[1,n],a[i,max]);
 swap(a[n,1],a[i,min]);
 
 for i:=1 to 10 do
 begin
  for j:=1 to 10 do write(a[i,j]:3);
  writeln;
 end;
 readln;
end.

uses crt;
const n=10
var a:array[1..n,1..n] of integer;
min,max,mini,maxi,i,j:integer; {добавил переменную mini и maxi для определения еще строки}
 
procedure swap(var a,b:integer);
var t:integer;
begin
 t:=a;
 a:=b;
 b:=t;
end;
 
begin
 clrscr;
 randomize;
 for i:=1 to 10 do
 begin
  for j;=1 to 10 do
  begin
   a[i,j]:=random(100);
   write(a[i,j]:3);
  end;
  writeln;
 end;
 
  min:=1;
  max:=2;
  mini:=1; {добавил}
  maxi:=1; {добавил}
 
 for i:=1 to 10 do
 begin  
     for j:=1 to 10 do 
         if a[i,j]>a[maxi,max] then   { if a[i,j]>a[i,max] -> if a[i,j]>a[maxi,max] then }
           begin
             max:=j;
             maxi:=i {добавил}
           end;
           else if a[i,j]<a[mini,min] then  { if a[i,j]>a[i,min] -> if a[i,j]>a[mini,min] then }
              begin
                min:=j; 
                mini:=i; {добавил}
              end;
 end;
 swap(a[1,n],a[maxi,max]); {вот тут еще переделал}
 swap(a[n,1],a[mini,min]); {и вот тут}
 
 for i:=1 to 10 do
 begin
  for j:=1 to 10 do write(a[i,j]:3);
  writeln;
 end;
 readln;
end.