Найти в матрице самую длинную цепочку подряд стоящих нулей

uses crt;
const nmax=25;
var l:array[1..nmax,1..nmax] of byte;
    n,k,j,i,max,p,q:byte;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' k=');
readln(k);
until k in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
   for j:=1 to k do
    begin
     l[i,j]:=random(2);
     write(l[i,j]:3);
    end;
   writeln;
 end;
{ищем по строкам}
max:=0;
for i:=1 to n do
 begin
  j:=1;
  while j<=k do
  if l[k,j]=0 then
    begin
     p:=0;q:=j;
     while (l[i,q]=0)and(q<=k) do
      begin
       p:=p+1;
       q:=q+1;
      end;
     if p>max then max:=p;
     j:=j+p+1;
    end
  else j:=j+1;
 end;
{по столбцам}
for i:=1 to k do
 begin
  j:=1;
  while j<=n do
  if l[j,i]=0 then
    begin
     p:=0;q:=j;
     while (l[q,i]=0)and(q<=n) do
      begin
       p:=p+1;
       q:=q+1;
      end;
     if p>max then max:=p;
     j:=j+p+1;
    end
  else j:=j+1;
 end;
writeln('Наибольшее число нолей подряд=',max);
readln
end.