задача:Определить число вхождений в текст заданного слова

помогите

program Project3;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var s:string;
i,n,k:integer;
d:string;
begin
writeln ('Input S');
readln(s);
n:=length(s);
d:='sps';
k:=0;
for i:=1 to n do
if (i=n) or (s[i+1]=' ')  and (s[i]=d)  then
k:=k+1;
writeln(k);
readln;
end.

Не изобретай велосипед - разбей текст на слова: Разбиение на слова. Все способы, и ищи совпадения каждого найденного слова с заданным.

Про теги тоже не забывай...