Нужно отыскать самую длинноватую постоянную цепочку нулей в последовательности нулей и

Полагаюсь вам можно использовать массивы, если нет, то скажите, переделаем

Var s: string;
    bg,k,i,l: integer;
begin
  write('строчка:  ');
  readln(s);
  i:=1;  bg:=0;  k:=0;
  l:=length(s);
  while (ilt;l) do
  begin
    while (s[i]lt;gt;'0') and (ilt;l) do i:=i+1;
    bg:=i;
    while (s[i]='0') and (ilt;l)  do i:=i+1;
    if i=l then bg:=bg-1;
    if klt;i-bg then k:=i-bg;
  end;
  writeln('длина макс. последоват. из нулей = ',k);
end.