Дан двумерный массив 5*5. найти число строк матрицы, сумма элементов которой отрицательна?

Const n=5;

var a:array [1 ... n, 1 ... n] of integer;

i, j, k:integer;

begin

for i:=1 to n do

for j:=1 to n do begin

readln (a[i, j]); {Вводим массив}

if a[i, j]<0 then inc (k); end;

writeln (k);

end.