Jeden cyklus FOR
function MojeCopy(ret: string; odkud, kolik: integer): string;
var
i: Integer;
begin
MojeCopy := '';
if Len(ret) < odkud + kolik then
kolik := Len(ret) - odkud;
for i := odkud to odkud + kolik - 1 do
MojeCopy := MojeCopy + ret[i-1];
end;