Дан двумерный массив, найти наименьший элемент выше побочной диагонали и наименьший элемент ниже побочной диагонали с указанием их индексов. Создать новый массив, в котором найденные элементы поменяются местами — Pascal(Паскаль)

Program test;
uses crt;
var a:array[1..10,1..10] of integer;
    i,j,min1,min2,n,g,p,e,r,t:integer;
begin
clrscr;
writeln('Введите размерность');
read (n);
writeln('Введите элементы массива:');
 for i:=1 to n do
 for j:=1 to n do
begin
 gotoxy (j*4,i+4);
 read (a[i,j]);
end;
min1:=a[1,1];
for i:=1 to n-1 do
for j:=1 to n-i do
if a[i,j]<min1 then
 begin
  min1:=a[i,j];
  g:=i;
  e:=j;
 end;
writeln('Минимальный выше побочной a[',g,',',e,']=',min1);
 
min2:= a[2,n];
For i:=2 to n do
For j:=n-i+2 to n do
if a[i,j]<min2 then
 begin
  min2:=a[i,j];
  r:=i;
  t:=j;
 end;
writeln('Минимальный ниже побочной a[',r,',',t,']=',min2);
p:=a[g,e];
a[g,e]:=a[r,t];
a[r,t]:=p;
writeln('Обмен минимальных элементов:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
readkey
end.