Строки в Pascal. Сколько раз встречается сочетание букв.

[Mt.Help]

Дана строка и дано сочетание букв. Надо определить сколько раз данное сочетание букв встречается в строке.

[newerow1989]

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

[Mt.Help]

Спасибо большое :3

[newerow1989]