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

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.