Количество строк матрицы, не содержащих ни одного нулевого элемента

var
  Form1: TForm1;
  a: array of array of integer;
  m,n: integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
//зададим некоторые параметры таблицы
with StringGrid1 do
 begin
  fixedCols:=0;
  fixedRows:=0;
  defaultColwidth:=30;
  scrollBars:=ssBoth;
 end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
//проверим ввод размеров
val(Edit1.Text,m,i);
if (i<>0)or not(m in [1..20])then
 begin
  ShowMessage('Неверно введено количество строк');
  Edit1.Clear;
  Edit1.SetFocus;
  exit
 end;
val(Edit2.Text,n,i);
if (i<>0)or not(n in [1..20])then
 begin
  ShowMessage('Неверно введено количество столбцов');
  Edit2.Clear;
  Edit1.SetFocus;
  exit
 end;
Setlength(a,m,n);
StringGrid1.RowCount:=m;
StringGrid1.ColCount:=n;
for i:=0 to m-1 do
for j:=0 to n-1 do
 begin
  a[i,j]:=random(10);
  StringGrid1.Cells[j,i]:=IntToStr(a[i,j]);
 end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var i,j,k,p:integer;
begin
k:=0;
for i:=0 to m-1 do
 begin
  p:=0;
  j:=0;
  while(j<n)and(p=0) do
  if a[i,j]=0 then p:=1
  else inc(j);
  if p=0 then inc(k);
 end;
Edit3.Text:='Количество строк без 0='+IntToStr(k);
end;