С клавиатуры вводится строка. Подсчитать сколько раз в нее входит подстрока abc.

var s: string;    n,k: integer;begin  write('строка: ');  readln(s);  k:=0;  n:=pos('abc',s);  if n>0 then  repeat    k:=k+1;    delete(s,1,n+2);    n:=pos('abc',s);  until n=0;  writeln(k);end.строка: fdrsabcde dsabcjhy abckjuy3строка: dscabgfre fhygdte0