var
  FirstNumbers: TArray<Integer>;
  SecondNumbers: TArray<Integer>;
  AllNumbers: TArray<Integer>;
  Number: Integer;
begin
  FirstNumbers := [2, 3, 5];
  SecondNumbers := [7, 11, 13];

  //array concatenation
  AllNumbers := FirstNumbers + SecondNumbers;
  //allNumbers is [2, 3, 5, 7, 11, 13]

  for Number in AllNumbers do
    Write(Number, ' ');
  WriteLn;
end.