Deklaracja tablicy const 4D

hej, mam problem z zadeklarowaniem tablicy...
Przy tylu wymiarach się pogubiłem z deklaracją. Zadeklarowałem trochę mniejszą żeby kompiler się nie doczepiał.

Generalnie ma być ona 7x7x24x2 (tak jak w zakomentowanym kodzie).
W sumie wystarczyłaby tablica 3D, która by przechowywała rekordy, ale nie da się tego zrobić wtedy jako constans...

czyli mając parametry wejściowe np 1 , 1, 20
chce pobrać wartość siedzącą w TabShift[1, 1, 20, 0] oraz wartość z TabShift[1, 1, 20, 1]

const
  //TabShift: array[1..7, 1..7, 0..23, 0..1, 0..3] of Integer =
  TabShift: array[1..1, 1..1, 0..4, 0..1, 0..3] of Integer =
  (
    (
    (
      (
        ((1, 1, 0, 0),     (1, 1, 0, 0))
      ),

      (
        ((1, 1, 1, 1),     (1, 1, 1, 1))
      ),

      (
        ((1, 1, 2, 2),     (1, 1, 2, 2))
      ),

      (
        ((1, 1, 3, 3),     (1, 1, 3, 3))
      ),

      (
        ((1, 1, 4, 4),     (1, 1, 4, 4))
      )
    )
    )
  );

Może ktoś coś zrozumiał, bo ciężko mi jest to wyjasnic. Jak nie, to do kosza ;p

W sumie wystarczyłaby tablica 3D, która by przechowywała rekordy, ale nie da się tego zrobić wtedy jako constans...

A sprawdzałeś ?

type
  TRec = record
    x,y,z: Integer;
  end;

  TTab = array[0..1] of TRec;

const
  DANE : TRec =
    (x:1; y:2;z:3);

  DANE2 : TTab =
   (
    (x:1; y:2;z:3),
    (x:1; y:2;z:3)
   );

kod jest tutaj: http://4programmers.net/Pastebin/1194