В заданном тексте, найти номер первой по порядку группы цифр, начинающейся цифрой 2.

const
    NUMBERS: Set Of Char = ['0'..'9'];
function Clip(var s: String): String;
var
    Result: String;
begin
    Result := '';
    while (s[1] in NUMBERS) do
    begin
        Result := Result + s[1];
        Delete(s, 1, 1);
    end;
    while ((Length(s) > 0) And Not(s[1] in NUMBERS)) do
        Delete(s, 1, 1);
    Clip := Result;
end;
var
    s, si: String;
    currId: Byte;
    flag: Boolean;
begin
    Write('Input string: '); ReadLn(s);
    s := s + ' '; currId := 0;
    while ((Length(s) > 0) And Not(s[1] in NUMBERS)) do
        Delete(s, 1, 1);
    if (Length(s) > 0)
    then
    begin
        flag := False;
        repeat
            si := Clip(s);
            flag := (si[1] = '2');
            Inc(currId);
        until ((flag) Or (Length(s) = 0));
        if (flag)
        then
            Write(currId)
        else
            Write('No one!');
    end
    else
        Write('No one!');
end.

var s:string;
    i,k:byte;
    f:boolean;
begin
 write('s = ');readln(s);
 i:=1;k:=0;f:=false;
 while (i<=length(s))and(not f) do
  begin
   if s[i] in ['0'..'9']
    then
     begin
      if s[i]='2' 
       then f:=true
       else
        begin
         inc(k);
         while (s[i] in ['0'..'9'])and(i<length(s)) do inc(i)
        end
     end;   
   inc(i);
  end; 
 if f then writeln('номер первой по порядку группы цифр, начинающейся цифрой 2: ',k+1) 
      else writeln('нет группы цифр, начинающейся цифрой 2')
end.

var
  s: String;
  i, k: Integer;
begin
  Write('s = '); ReadLn(s); i:=1; {k:=0;}
  while i<=Length(s) do
    if s[i] in ['0'..'9'] then begin
      Inc(k);
      if s[i]<>'2' then while (i<=Length(s)) and (s[i] in ['0'..'9']) do Inc(i)
      else Break;
    end else Inc(i);
  if i<=Length(s)
  then WriteLn('номер первой по порядку группы цифр, начинающейся цифрой 2: ',k) 
  else WriteLn('нет группы цифр, начинающейся цифрой 2');
end.

var
  s: String;
  i, k: Integer;
begin
  Write('s = '); ReadLn(s); i:=1; {k:=0;}
  while i<=Length(s) do
    if not (s[i] in ['0'..'9']) then Inc(i)
    else begin
      Inc(k);
      if s[i]<>'2' then while (i<=Length(s)) and (s[i] in ['0'..'9']) do Inc(i)
      else Break;
    end;
  if i<=Length(s)
  then WriteLn('номер первой по порядку группы цифр, начинающейся цифрой 2: ',k) 
  else WriteLn('нет группы цифр, начинающейся цифрой 2');
end.

var s:string;i,k:byte;f:boolean;
begin
 write('s = ');readln(s);
 i:=1;k:=0;f:=false;
 while (i<=length(s))and(not f) do begin
   if s[i] in ['0'..'9'] then begin
      if s[i]='2' then f:=true
      else begin inc(k); while (s[i] in ['0'..'9'])and(i<length(s)) do inc(i)end
   end;   
 inc(i);
 end; 
 if f then writeln('номер первой по порядку группы цифр, начинающейся цифрой 2: ',k+1) 
      else writeln('нет группы цифр, начинающейся цифрой 2')
end.