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

Var

s, ss:string;

i, j, n, k:integer;

begin

Write ('Введите текст: ') ; Readln (s) ;

s:=' '+s+' ';

Write ('Введите искомое слово: ') ; Readln (ss) ;

ss:=' '+ss+' ';

n:=Length (ss) ;

i:=Pos (ss, s) ; k:=0;

if i>0 then

repeat

Inc (k) ;

Delete (s, i, n) ;

i:=Pos (ss, s) ;

until i=0;

Writeln ('Слово встречается ', k,' раз (а) ')

end.

Тестовое решение:

Введите текст: по дороге, по тропинке, по леску пойдем

Введите искомое слово: по

Слово встречается 3 раз (а)