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

Vara: array[1… 10]of array[1… 10] of integer; i, j ,P: Integer; Beginrandomize; 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] < 0 then begin P: =1; for j: =1 to 10 do P: =P*a[i][j]; writeln (i,'-я строка, П=',P); end; writeln; End.