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

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 раз(а)