Ошибка!Ё

[Tifa]

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

program progr3;
uses crt;
var
c,d,e,f,i,j,m,n,buf,min1,min2:integer;
a:array [1..40,1..40] of integer;
b:array [1..40,1..40] of integer;
s:real;
Begin
clrscr;
writeln('Vvedite razmernost');read(n);
for i:=1 to n do
for j:=1 to n do
begin
writeln('Vvedite a[',i,',',j,']');
read(a[i,j]);
b[i,j]:=a[i,j];
end;
min1:=a[1,1];
c:=1;
d:=1;
for i:=2 to n-1 do
for j:=1 to n-i do
begin
if (a[i,j]<min1) and (a[i,j]<0) then begin
                                min1:=a[i,j];
                                c:=i;
                                d:=j;
                                end;
end;
min2:=a[2,n];
e:=2;
f:=n;
for i:=2 to n do
for j:=n-i+2 to n do
begin
if (a[i,j]<min2) and (a[i,j]<0) then begin
                                min2:=a[i,j];
                                e:=i;
                                f:=j;
                                end;

end;
buf:=b[c,d];
b[c,d]:=b[e,f];
b[e,f]:=buf;
if min1>=0 then writeln('Nad diagonaliu net otricatelnix elementov');
if min2>=0 then writeln('Pod diagonaliu net otricatelnix elementov');
if (min1<0) and (min2<0) then begin
                              for i:=1 to n do
                              for j:=1 to n do
                              write(a[i,j]);
                              end;
readln;
End.

...незнаю в чем ошибка...я ваше запуталась помоему она в корне не правельная....помогите разобраца..!