Строчные величины, pascal

[Ucheniza]

#pascal
Сколько раз в тексте повторяется заданное слово?

[newerow1989]

var s,str:string;
    i,n:integer;
begin
   Write('Predloshenie: ');Readln(str);
   Write('Slovo: ');Readln(s);
   str:=' '+str+' ';
   s:=' '+s+' ';
   n:=0;
   For i:=1 to Length(str)-Length(s)+1 do
      If s=Copy(str,i,Length(s)) then
         n:=n+1;
   Writeln('Itogo: ',n);
   Readln;
end.