Question

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