Определить в какой из матриц больше строк, содержащей нулевые элементы. Матрицы А(7*7) В (8*7)- Pascal(Паскаль)

var
 A:array [1..7,1..7] of integer;
 B:array [1..8,1..7] of integer;
 k,ac,bc,i,j:integer;
begin
ac:=0;bc:=0;

 for i:=1 to 7 do begin
  k:=0;
  for j:=1 to 7 do begin 
   a[i,j]:=random(100);
   write(' ',a[i,j]);
   if a[i,j]=0 then inc(k);
  end;
  writeln;
  if k>0 then inc(ac);
 end;

writeln;

 for i:=1 to 7 do begin
  k:=0;
  for j:=1 to 7 do begin 
   b[i,j]:=random(100);
   write(' ',b[i,j]);
   if b[i,j]=0 then inc(k);
  end;
  writeln;
  if k>0 then inc(bc);
 end;

if ac>bc then write('В первой') else write('Во второй');
end.