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

Формулировка задачи:

Дан текст, найти номер первой по порядку группы цифр (группой цифр будем называть такую совокупность последовательно расположенных цифр, которой непосредственно не предшествует и за которой непосредственно не следует цифра), начинающейся цифрой 2.

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

Листинг программы

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.

Объяснение кода листинга программы

В данном коде происходит чтение строки из файла, после чего начинается цикл, который проверяет каждую цифру в строке. Если цифра равна 2, то переменная f устанавливается в значение true, иначе переменная k увеличивается на единицу. Цикл продолжается до тех пор, пока не будет найдена первая группа цифр, начинающаяся с цифры 2. Если такая группа найдена, то выводится номер этой группы, иначе выводится сообщение о том, что такой группы нет.