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

[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 как-то никуда не лепится.
Это побочный эфект от того, что я не могу это задать в константах, но тоже мне интересно. И скажите, пожалуйста, как все таки это делается в константах.

[TarasBer]

На самом деле мне тоже непонятно, почему выражения вида (0,1,2,3) объявлять в разделе констант можно, а в коде в правой части оператора присваивания - нельзя, хотя и там и там обращение к константе идёт.

[Lapp]

мне тоже непонятно, почему выражения вида (0,1,2,3) объявлять в разделе констант можно, а в коде в правой части оператора присваивания - нельзя, хотя и там и там обращение к константе идёт.

Всем известно, что типизированные константы в ТР - вовсе не константы, это просто инициированные переменные. Генерация кода, конечно, разная. Разумеется, это не смертельно. Почему не сделали? 43..