Дан двумерный массив.определить номера строк, в которых сумма элементов отрицательна- Pascal(Паскаль)

Uses
 CRT;
var
 B:array [1..10,1..10] of integer;
 k,m,n,i,j,sum:integer;
begin
 write('=: ');
 readln(k,m);
 randomize;
 writeln('=: ');
 for i:=1 to k do
 begin
  for j:=1 to m do
  begin
   b[i,j]:=random(10)-3;
   write(b[i,j]:3);
  end;
  writeln;
 end;
 writeln;
 for i:=1 to k do
 begin
  sum:=0;
  for j:=1 to m do
   sum:=sum+b[i,j];
  if sum<0 then
  begin
   writeln('= ',i,':=',sum)
  end;
 end;
readkey
end.