11. Программка обязана считать, сколько раз в строке S встречается подстрока

11. Программа должна считать, сколько раз в строке S встречается подстрока '12'. Какой оператор надо воткнуть вместо многоточия? Вводите ответ без пробелов.
c := 0;
repeat
...
if p lt;gt; 0 then begin
c := c + 1;
Delete ( S, 1, p+1)
end;
until p = 0;