Найдите суммы элементов тех строк матрицы, на главной диагонали которой стоят отрицательные элементы

[SIZE=2]
uses crt;
var a:array[1..20,1..20]of integer;
n,i,j,sum:integer;
begin
clrscr;
write('n= ');readln(n);
randomize;
Writeln('Matrica:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(21)-10;
write(a[i,j]:4);
end;
writeln;
end;
for i:=1 to n do
if a[i,i]<0 then [/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]{[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]если на главной диагонали отрицательный[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]}
[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]begin
sum:=0;
for j:=1 to n do
sum:=sum+a[i,j];[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]{[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]считаем сумму в строке[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]}
[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]writeln('V stroke ',i,' El.gl.diag=',a[i,i],' Summa=',sum);
end;
readln
end.
[/SIZE]