Найти наименьший отрицательный элемент выше побочной диагонали и наименьший положительный элемент ниже побочной диагонали

program progr3;
uses crt;
var n,i,j,imnv,jmnv,imnn,jmnn:byte;
a,b:array [1..40,1..40] of integer;
Begin
clrscr;
writeln('Vvedite razmernost');
readln(n);
imnv:=0;jmnv:=0;imnn:=0;jmnn:=0;
for i:=1 to n do
for j:=1 to n do
 begin
  write('a[',i,',',j,']=');
  readln(a[i,j]);
  if (j<n-i+1)and(a[i,j]<0) then
   begin
    imnv:=i;
    jmnv:=j;
   end;
  if (j>n-i+1)and(a[i,j]>0) then
   begin
    imnn:=i;
    jmnn:=j;
  end;
 end;
clrscr;
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:5);
  writeln;
 end;
if imnv=0 then write('Выше побочной диагонали нет отрицательных элементов')
else if imnn=0 then write('Ниже побочной диагонали нет положительных элементов');
if (imnv=0)or(imnn=0)then write('Обмена элементов нет!')
else
 begin
  for i:=1 to n-1 do
  for j:=1 to n-i do
  if (a[i,j]<a[imnv,jmnv]) and (a[i,j]<0) then
   begin
    imnv:=i;
    jmnv:=j;
   end;
  for i:=2 to n do
  for j:=n-i+2 to n do
  if (a[i,j]<a[imnn,jmnn]) and (a[i,j]>0) then
   begin
    imnn:=i;
    jmnn:=j;
   end;
  writeln('Минимальный отрицательный выше побочной=',a[imnv,jmnv]);
  writeln('Минимальный положительный ниже побочной=',a[imnn,jmnn]);
  writeln('Матрица после обмена минимальных элементов:');
  for i:=1 to n do
   begin
    for j:=1 to n do
     begin
      if (i=imnv)and(j=jmnv)then b[i,j]:=a[imnn,jmnn]
      else if (i=imnn)and(j=jmnn)then b[i,j]:=a[imnv,jmnv]
      else b[i,j]:=a[i,j];
      write(b[i,j]:5);
     end;
    writeln;
   end;
 end;
readln;
End.