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

uses Math;
 
 
procedure TForm1.btn1Click(Sender: TObject);
var i,j,count,tmp:integer;
mas:array[0..5,0..2] of integer;
begin
  for i:=0 to 5 do
    for j:=0 to 3 do
      mas[i,j]:=RandomRange(-99,99);
 
  count:=0;
  tmp:=0;
  for i:=0 to 5 do
    begin
      for j:=0 to 3 do
          if mas[i,j]>0 then inc(tmp);
      if tmp=3 then inc(count);
      tmp:=0
    end;
  showmessage(inttostr(count));
end;

procedure TForm1.btn1Click(Sender: TObject);
var i,j,count,tmp:integer;
mas:array[0..5,0..2] of integer;
begin
  for i:=0 to 5 do
    for j:=0 to 3 do
    begin
      mas[i,j]:=RandomRange(-99,99);
      strngrd1.Cells[j,i]:=inttostr(mas[i,j])
    end;
  count:=0;
  tmp:=0;
  for i:=0 to 5 do
    begin
      for j:=0 to 3 do
          if mas[i,j]>0 then inc(tmp);
      if tmp=3 then inc(count);
      tmp:=0
    end;
  btn1.caption:=(inttostr(count));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 Randomize; //Включили генератор случайных чисел
end;
 
//Заполнили таблицу
procedure TForm1.Button1Click(Sender: TObject);
var i, j : integer;
begin
 for i := 0 to StringGrid1.ColCount - 1 do
  for j := 0 to StringGrid1.RowCount - 1 do
   StringGrid1.Cells[i, j] := IntToStr(RandomRange(-100, 100));
end;
 
//Посчитали кол-во строк с неотрицательными элементами
procedure TForm1.Button2Click(Sender: TObject);
var i, Count : integer;
    s : string;
begin
 Count := 0;
 for i := 0 to StringGrid1.RowCount - 1 do
  begin
   s := StringGrid1.Rows[i].CommaText;
   if Pos('-', s) = 0 then inc(Count);
  end;
 Label1.Caption := 'Найдено ' + IntToStr(Count) + ' строк с положительными элементами';
end;