[code language = pascal]

The following program

program Project2;

{$APPTYPE CONSOLE}

{$R *.res}

uses

System.SysUtils, System.Generics.Collections;

var

x, y : TArray<integer>;

i : integer;

begin

x := [0,1,2,3,4,5];

y := [0,0,0,0,0,0];

TArray.Copy<integer>(x, y, 1, 2, 3);

for i in y do

begin

write(i);

end;

Readln;

end.

[/code]

Will print out