указать индексы и создать новый массив

uses crt;
var
A: array [1..100, 1..100] of integer;
amin,bmin,i,j,s,M,N:integer;
begin
clrscr;
write ('Vvedite kol-vo strok N:');
readln(N);
write('Vvedite kol-vo stolbcov M:');
readln(M);
for i:=1 to N do
for j:=1 to M do
begin
gotoxy(j*5+10,i+6);
readln (A[i,j]);
end;
Amin:=A[i,j];
Bmin:=A[i,j];
For i:=1 to N do
for j:=1 to M do
begin
if (i<j) and (A[i,j]<Amin) then
Amin:=A[i,j];
end;
for i:=1 to N do
for j:=1 to M do
begin
If (i>j) and (A[i,j]<Bmin) then
Bmin:=A[i,j];
end;
Begin
if Amin>0 then
writeln ('Min. polo}|{itelniy element vishe glavnoy diagonaly=',Amin) else
writeln ('Min. polo}|{itelniy element vishe glavnoy diagonaly otsutstvuet');
end;
begin
if (Bmin<0) and ((Bmin mod 2)=0) then
writeln ('Min. 4etniy otricatelniy element ni}|{e glavnoy diagonali='Bmin) else
writeln ('Min. 4etniy otricatelniy element ni}|{e glavnoy diagonali otsutstvuet');
end;
readkey;
end.

uses crt;
const nmax=20;
var a,b:array[1..nmax,1..nmax] of integer;
    n,i,j,i1,j1,i2,j2:byte;
    x:integer;
begin
clrscr;
repeat
write('Размер матрицы до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица A:');
for i:=1 to n do
 begin
   for j:=1 to n do
    begin
     a[i,j]:=random(50)-25;
     write(a[i,j]:4);
    end;
   writeln;
 end;
writeln;
i1:=0;j1:=0;{выше главной}
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i,j]>0 then
 begin
  i1:=i;
  j1:=j;
 end;
if i1=0 then writeln('Выше главной диагонали положительных элементов нет!')
else
 begin
  for i:=1 to n-1 do
  for j:=i+1 to n do
  if (a[i,j]>0)and(a[i,j]<a[i1,j1]) then
   begin
    i1:=i;
    j1:=j;
   end;
  writeln('Минимальный положительный выше главной диагонали a[',i1,',',j1,']=',a[i1,j1]);
 end;
i2:=0;j2:=0;{ниже главной}
for i:=2 to n do
for j:=1 to i-1 do
if (a[i,j]<0)and(a[i,j] mod 2=0) then
 begin
  i2:=i;
  j2:=j;
 end;
if i2=0 then writeln('Нижше главной диагонали четных отрицательных элементов нет!')
else
 begin
  for i:=2 to n do
  for j:=1 to i-1 do
  if (a[i,j]<0)and(a[i,j] mod 2=0)and(a[i,j]<a[i2,j2]) then
   begin
    i2:=i;
    j2:=j;
   end;
  writeln('Минимальный отрицательный четный ниже главной диагонали a[',i2,',',j2,']=',a[i2,j2]);
 end;
if(i1=0)or(i2=0)then write('Нет двух элементов для обмена!')
else
 begin
  writeln;
  writeln('Обмен найденных элементов, матрица В:');
  for i:=1 to n do
  for j:=1 to n do
  b[i,j]:=a[i,j];
  b[i1,j1]:=a[i2,j2];
  b[i2,j2]:=a[i1,j1];
  for i:=1 to n do
   begin
    for j:=1 to n do
    write(b[i,j]:4);
    writeln;
   end;
 end;
readln
end.