var
  ArInt: TArray<Integer>;
  Count: Integer;
begin
  Count := 15;
  //new elements are zero-initialized
  SetLength(ArInt, Count);
  ArInt[0] := 1;

  WriteLn('length is ', Length(ArInt));
  WriteLn('arInt[0] is ', ArInt[0]);
  WriteLn('arInt[1] is ', ArInt[1]);
end.