Пожалуйста, подскажите как можно вычислить сумму и количество отрицательных элементов каждой строки двумерного массива

{$R *.dfm}

procedure TForm1.btn4Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.btn1Click(Sender: TObject);
var
b:array [1..5,1..3] of integer;
i,j: integer;

begin
Randomize;
for i:=1 to 5 do
for j:=1 to 3 do
begin
b[i,j]:=random(5)-3;
mmo1.Lines.Add(IntToStr(b[i,j]));
end;
btn2.visible:=true;
btn3.visible:=true;
end;

procedure TForm1.btn2Click(Sender: TObject);
var
b:array [1..5,1..3] of integer;
i,j: integer;
s:Integer;
begin
for i:=1 to 5 do
begin
s:=0 ;
for j:=1 to 3 do
if b[i,j] < 0 then
begin
s:=s+b[i,j];
end;
end;
mmo1.Lines.Add('ñóììà '+IntToStr(s)) ;
end;

procedure TForm1.btn3Click(Sender: TObject);
var
b:array [1..5,1..3] of integer;
i,j: integer;
n:Integer;
begin
for i:=1 to 5 do
begin
n:=0 ;
for j:=1 to 3 do

if b[i,j] < 0 then
begin
n:=n+1;
end;
end;
mmo1.Lines.Add('êîë-âî '+IntToStr(n)) ;
end;

end.

ошибка: выдает одинаковые сумму и кол-во

что надо в теле программы изменить, чтобы выдавало корректные сумму и количество?