Помогите пожалуйста решить задачу на Паскале

[Striker14]

Сформировать массив, содержащий номера строк матрицы, имеющих отрицательную сумму элементов. заранее спасибо)

[Sazary]

Где ваши наработки?

цикл такой:

cnt := 0;
for i:=1 to m do
 begin
 sum := 0;
 for j:=1 to n do
  sum := sum + a[i,j];
 if sum<0 then 
  begin
  inc(cnt);
  b[cnt] := i;
  end;
 end;

Думаю, остальное напишете.