программирование двумерный массив

Question

нужно найти сумму отрицательных элементов каждой строки, в моем условии выполнение правильно идет только для первой, в остальных считает ошибочно! , помогите! как правильно организовать перебор чтобы условие выполнялось для всех строк массива? 
s:=0; k:=0;
for i:=1 to n do
begin
for j:=1 to n do
if a[i,j]<0 then k:=k+1;
begin
s:=s+a[i,j];

Алексей Соляков · Accepted Answer

У тебя сумбур какой-то. . .
Нужно как-то так:
for i:=1 to n do begin
s:=0; k:=0;
for j:=1 to n do
if a[i,j]<0 then begin k:=k+1; s:=s+a[i,j]; end;
writeln('B ',i,'-й строке ',k,' отрицательных элементов. Их сумма равна ', s);
end;