Строки Опции

[die]

Дана строка определить сколько раз в неё входит группа abc .
Например : Max go abc in new abc > Входит 2 раза , еще 1 пример - Maxabc tomorow is abcwrt can stayabc > 3 раза.

[Lapp]

Дана строка определить сколько раз в неё входит группа abc

Вот как-то так попробуй:

n:=0;
while Pos('abc',s)>0 do begin
  Inc(n);
  Delete(s,1,Pos('abc',s)+2)
end;