От нечего делать.
Образно для Delphi:
SetLength(str,n) - это str[0]:=n и никаких циклов.
Copy(str,1,n) - это For i:=1 to n do s:=s+str[i]; (появились ещё две переменные - счетчик i,результат s и проверка выполнения условия (i=n)? при каждой интерации)
Интересно, каким кодом ты решишь предложенные методы doCopyFirst(Count), doCopyLast(Count)?

И последнее: Copy()- это готовый испытанный компонент. Не надо его модифицировать.