Function RPS(s:String;index:Integer;c:String):String;
Begin
 Result:='';s:=s+c;
 While (index>0) do
   Begin System.Delete(s,1,Pos(c,s)+(Length(c)-1));Dec(index);End;
 If index>-1 then
  Result:=System.Copy(s,1,Pos(c,s)-1);
End;

Function CountS(s,c:String):Integer;
Begin
 Result:=0;
 If Length(s)<>0 then
  Begin
   s:=s+c;
   While Pos(c,s)<>0 do
    Begin
     Delete(s,1,Pos(c,s));
     Result:=Result+1;
    End;
  End;
End;