Для подсчета, сколько раз подстрока '12' встречается в строке s, нужно использовать оператор, который позволяет находить позицию следующего вхождения подстроки после первого обнаруженного вхождения. В данном случае, вместо многоточия необходимо вставить следующую строку кода:
p := pos("12", s);
Таким образом, ваш код будет выглядеть следующим образом:
c := 0;
while pos ("12", s) <> 0 do begin
c := c + 1;
p := pos("12", s);
Delete(s, 1, p + 1);
end;
Здесь p := pos("12", s); ищет позицию подстроки '12' в строке s, а затем Delete(s, 1, p + 1); удаляет часть строки, чтобы продолжить поиск оставшихся вхождений.
Если у вас остались вопросы или нужна дополнительная помощь, не стесняйтесь спрашивать!