Динамические массивы. Определить: количество строк, содержащих хотя бы один нулевой элемент

Program Z;
type matr = array [1..10,1..10] of integer;
var i,j,n,m: byte;
     z,x: integer;
     b: matr;
function nol (a:matr) : byte;
var i,j,sum: integer;
begin
  sum:=0;
  for i:=1 to n do
  for j:=1 to m do
   if a[i,j]=0 then
   begin
    inc(sum);
    break;
   end;
 nol:=sum;
end;
Procedure seria (var a: matr);
var
 i,j,number,maxlen,slen: integer;
begin
 maxlen:=1; number:=1;
 for i:=1 to n do
 begin
  slen:=1;
  for j:=1 to m-1 do
   if (a[i,j]=a[i,j+1]) then
   inc(slen)
   else
   begin
    if slen>maxlen then
    begin
     number:=i;
     maxlen:=slen;
    end;
    slen:=1;
   end;
  if slen>maxlen then number:=i;
 end;
 writeln('Номер строки:', number);
end;
begin
 writeln ('Введите размерность:');
 readln(n,m);
 for i:=1 to n do
   for j:=1 to m do
     read(b[i,j]);
 writeln('Кол. строк с 0:', nol(b));
 seria(b);
end.

Program Zadanie;
type matr = ^array [1..10,1..10] of integer;
var i,j,n,m: byte;
z,x: integer;
b: matr;
function nol (a:matr) : byte;
var i,j,sum: integer;
begin
sum:=0;
for i:=1 to n do
for j:=1 to m do
if a^[i,j]=0 then
begin
inc(sum);
break;
end;
nol:=sum;
end;
Procedure seria (var a: matr);
var
i,j,
number,maxlen,slen: integer;
begin
maxlen:=1; number:=0;
for i:=1 to n do
begin
slen:=1;
for j:=1 to m-1 do
if (a^[i,j]=a^[i,j+1]) then
inc(slen)
else
begin
if slen>maxlen then
begin
number:=i;
maxlen:=slen;
end;
slen:=1;
end;
if slen>maxlen then number:=i;
end;
writeln('Номер строки:', number);
end;
begin
writeln ('Введите размерность:');
readln(n,m);
getmem(b,2*m*n);
randomize;
for i:=1 to n do
begin
for j:=1 to m do
begin
b^[i,j]:=random(20);
write(b^[i,j]:4);
end;
writeln;
end;
freemem(b);
writeln('Кол. строк с 0:', nol(b));
seria(b);
end.