Дана строка, состоящая из групп нулей и единиц. Подсчитать количество единиц в группах с нечетным количеством символов.

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
case key of
'0','1':;
else key:=#0;
end;
 
end;
procedure TForm1.Button1Click(Sender: TObject);
var s:string;
    n,i,j,k,sm:integer;
begin
s:=Edit1.Text;
n:=length(s);
sm:=0;
i:=1;
while i<=n do
if s[i]='1' then
 begin
  k:=0;
  j:=i;
  while(j<=n)and(s[j]='1') do
   begin
    inc(k);
    inc(j);
   end;
  if odd(k) then inc(sm,k);
  inc(i,k);
 end
else inc(i);
edit2.Text:='Количество единиц в группах с нечетным количеством символов='+IntToStr(sm);
end;

Const
  S = '00010100010 01010110010101'; //Строка
var
  i,CountCh,Count1 : Integer;
  Find : Boolean;
 
 
  Find:=False; //Признак нахождения группы
  CountCh:=0;  //Счётчик количества символов в группе
  Count1:=0;   //Счётчик единиц
  For i:=1 To Length(S) Do
  Begin
    If (S[i] In ['0','1']) Then Find:=True;
 
    If Find Then
    If (S[i] In ['0','1']) Then
    Begin
      Inc(CountCh); //Нарастить счётчик количества символов в группе
      If S[i]='1' Then
      //Нарастить счётчик
      Inc(Count1);
    End Else
    //Конец группы
    Begin
      If Odd(CountCh) Then
      WriteLn(Count1); //Выдать результат по группе
 
      Find:=False;
      CountCh:=0;
      Count1:=0;
    End;
  End;