Найти произведение отрицательных чисел строки матрицы, у которой второй элемент нечётный - Turbo Pascal

Const n=8;
Var A : array [1..n, 1..n] of integer;
    i, j, d : integer;
begin
Randomize;
For i:=1 to n do
    begin
    For j:=1 to n do A[i,j]:=random(10)-5;
    end;
For i:=1 to n do
    begin
    For j:=1 to n do Write(A[i,j]:3);
    Writeln;
    end;
D:=1;
For i:=1 to n do
    begin
    If ((A[i,2] mod 2) <> 0) then
       begin
       For j:=1 to n do
           begin
           If (A[i,j]<0) then D:=D*A[i,j];
           end;
       end;
    end;
Writeln(D);
Readln;
end.