Задание: найти сумму элементов матрицы {aij} (3 на 3) расположенных в строках с отрицательными элементами на главной диагонали.

Это нужно сделать на Паскале. Подскажите, пожалуйста.

...
summ:=0;
for i:= 1 to N do begin
for j:= 1 to N do begin
If matrix[i,i] < 0 then
summ:= summ + matrix[i,j];
end;
end;
...