Найти творенье строк где на основной диагонали отрицательное число

Var
a:array[1..10]of array[1..10] of integer;
i, j ,P: Integer;
Begin
randomize; 
writeln('Массив:'); 
 for i := 1 to 10 do 
begin 
for j := 1 to 10 do 
begin  a[i][j]:=random(21)-10; 
write(a[i][j]:5); 
end; 
writeln; 
end; 
for i := 1 to 10 do 
if a[i][i] lt; 0 then 
begin  P:=1; 
for j := 1 to 10 do 
P:=P*a[i][j]; 
writeln(i,'-я строчка, П=',P); 
end;   
writeln;
End.