Определить количество повторений в тексте заданного слова. Считать, что слова в тексте отделены друг от друга одним пробелом — Pascal(Паскаль)

var
kol:integer;
st,slovo:string;
begin
writeln('vvedite stroku');
readln(st);
writeln('vvedite slovo');
readln(slovo);
st:=' '+st+' ';
slovo:=' '+slovo+' ';
while pos(slovo,st)<>0 do
begin
delete (st,pos(slovo,st),length(slovo)-1);
inc(kol);
end;
writeln(kol);
readln;
end.