Add This Function And You Maybe Got AC.

Function Copy(S:String;St,En:LongInt):String;
Var Ans:String;
i:LongInt;
Begin
Ans:='';
For i:=St To En Do Ans:=Ans+S[i];
Copy:=Ans;
End;


Good Luck & Have Fun