Определить сколько раз слово встречается в строке?

[nikitasa]

Ввести строку и слово. Определить сколько раз слово встречается в строке.

[Valentin8596]

nikitasa, какой язык программирования используете?

[nikitasa]

На языке Pascal

[macomics]

function CountSubStr(aStr, aSub: PChar): LongInt;
var
   counter, i: LongInt;
   pStr: PChar;
begin
   counter := 0;
   i := Length(aSub);
   if (i > 0) and (i < Length(aStr)) then begin
      pStr := aStr;
      i := Pos(aSub, pStr);
      while i <> 0 do begin
         pStr := PChar(@pStr[i]);
         i := Pos(aSub, pStr);
         inc(counter);
      end;
   end;
   Result := counter;
end;