поиск в строке

[Apis]

Подскажете пожалуйста как в строке из 0 и 1 найти самую длинную цепочку из 1???

[Жека-старший]

думаю так

max:=0;
for i:=1 to length(stroka) do
if stroka[i]='1' then begin
                       kol:=0;
                       while (i<=length(stroka))and(stroka[i]='1') do
                       begin
                         inc(i)
                         inc(kol);
                       end;
                       if kol>max then max:=kol;
                    end;

[ROMA2PVT]

Uses
crt;
Var
S:Char;
F,I,K,N:Integer;
Begin
Clrscr;
Writeln ('Введите длину последовательности');
Readln (N);
K:=0;
F:=0;
For I:=1 To N Do Begin
Writeln ('Введите ',I,'-й член последовательности ');
Readln (S);
If S='1' Then K:=K+1;
If (S<>'1') or (I=N) Then
Begin
If F<K Then
Begin
F:=K;
End;
K:=0;
End;
End;
Writeln ('Самая длинная последовательность из ',F ,'единиц');
End.