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

program igor;
var
  A: Array [0..2,0..1] of integer;
  i,j, count0  : integer;
  flag:boolean;
 
  begin
    Randomize;
flag:=false;
    count0:=0;
 
    for i:=0 to 2 do
    begin
       for j:=0 to 1 do
       begin
          A[i,j] :=Random (9);
          Write  (A[i,j]:1,' ');
      end;
      Writeln;
  end;
  Writeln;
  for i:=0 to 2 do
  begin
  for j:=0 to 1 do
  begin
  if A[i,j]=0 then
  begin
  flag:=false;
  break;
  end else flag:=true;
  end;
  if flag then count0 := count0 + 1;
  end;
  writeln(count0);
  readln;
  end.

program igor;
 
type
  arr=Array [0..2, 0..1] of integer;
// процедура инициализации массива  
procedure init(var a: arr);
var i,j: byte;
begin
  for i:=0 to 2 do
    for j:=0 to 1 do
    a[i,j]:=random(9);
end;
// процедура вызова массива
procedure outPut(var a: arr);
var i,j: byte;
begin
  for i:=0 to 2 do
  begin
    for j:=0 to 1 do
      write(a[i,j]:4);
    writeln;
  end;
  writeln;
end;
 
var
  A: arr;
  i, j, count0: integer;
  flag: boolean;
 
begin
  Randomize;
  flag := false;
  count0 := 0;
  
  init(A);
  writeln('Исходный массив:');
  outPut(A);
  
  for i := 0 to 2 do
  begin
    for j := 0 to 1 do
    begin
      if A[i, j] = 0 then
      begin
        flag := false;
        break;
      end else flag := true;
    end;
    if flag then count0 := count0 + 1;
  end;
  writeln('Строк без нулей: ',count0);
  readln;
end.

procedure outPut(var a: arr);

procedure outPut(a: arr);

program SizeOfMatr;
USES crt;
const
   Hl = 9;
   Hm = 4;
   Hg = 6;
var
   Matr : Array [0..Hl] of Integer;
   Matr2: Array [0..Hm,0..Hg] of Integer;
begin
   ClrScr;
 
   WriteLn('Razmernost odnomernoy matr : 1x',High(Matr)+1);
   WriteLn('2 variant. Razmernost odnomernoy matr : 1x',(SizeOf(Matr) div 2));
 
   m:=High(Matr2)+1;
   n:=(SizeOf(Matr2) DIV 2) DIV m;
   WriteLn('Razmernost dvumernoy matr : ',M,'x',N,' ');
end.