Определить, сколько раз в тексте встречается заданное слово. Написать программу, Паскаль

Var

s, sl, sc: string;

i, k: integer;

begin

write ('Введите текст ') ;

readln (s) ;

write ('Введите слово ') ;

readln (sl) ;

s:=' '+s+' ';

sl:=' '+sl+' ';

for i : = 1 to length (s) - length (sl) + 1 do

begin

sc : = copy (s, i, length (sl)) ;

if sc = sl then inc (k) ;

end;

if k = 0 then writeln ('Не встречается')

else writeln ('Встречается ', k, ' раз') ;

end.