Присвоение Массивов Опции

[sheka]

type
  TWind = array [1..4] of byte;
  TP = array[1..4,1..2] of TWind;

var p:tp;

begin
  p[1,1]:=TWind(10,18,30,20);
end.

Как можно осуществить такую операцию? В делфи с TPoint так вроде делалось. И as как-то никуда не лепится.
Это побочный эфект от того, что я не могу это задать в константах, но тоже мне интересно. И скажите, пожалуйста, как все таки это делается в константах.

[sheka]

 type
  TWind = array [1..4] of byte;
  TP = array[1..4,1..2] of TWind;

const
  p: tp =
  (
    ((10, 10, 30, 20), (0, 0, 0, 0)),
    (( 0,  0,  0,  0), (0, 0, 0, 0)),
    (( 0,  0,  0,  0), (0, 0, 0, 0)),
    (( 0,  0,  0,  0), (0, 0, 0, 0))
  );

Чего-то так у меня ругалось на 1ю скобку. "И чем я его только не пробовала"(С)
Спасибо, завтра еще раз проверю..

Добавлено через 1 мин.
И заодно напишу, что я имел ввиду)