[NumLock]

Код:

function Copy(S; Index, Count: Integer): string;