Требуется найти самую длинную непрерывную цепочку нулей в последовательности нулей и единиц. Пример: 00101110000110 Ответ:4; Программу нужно написать на Паскале

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