1D массив...

[Godless]

Как создать одномерный массив(типа integer) с уже заданным набором елементов?

[artemavd]

Можно так:

const
  MaxBooleans = (High(Cardinal) - $F) div sizeof(boolean);

type
  TBoolArray = array[1..MaxBooleans] of boolean;
  PBoolArray = ^TBoolArray;

var
  B: PBoolArray;
  N: integer;

begin
  N := 63579;
  {= получение памяти под динамический массив.. =}

  GetMem(B, N * sizeof(boolean));
  {= работа с массивом... =}

  B^[3477] := FALSE;
  {= возвращение памяти в кучу =}
{$IFDEF VER80}

  FreeMem(B, N * sizeof(boolean));
{$ELSE}

  FreeMem(B);
{$ENDIF}
end.

или так:

var
  intArray : array of integer;
begin
  intArray:=(New(IntArray,100); //Размер массива? 100
end;