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

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

[volvo]

Дельфи и Паскаль - это разные языки, не правда ли? С разными синтаксическими диаграммами. Ни в Стандартном ни в Расширенном Паскале Array of Const не присутствует. Это расширение Дельфи (точнее - Object Pascal-я). Кстати, это - костыль, нарушающий стройность языка. Ибо я в данный конкретный момент не вижу, работает функция со множеством или с массивом констант.

И потом. Попробуй присвоить значения напрямую в массив, не через функцию. Получилось? Нет. А почему, собственно? Вот именно потому, что костыль и не получилось. Было бы нормальное и продуманное расширение - работало бы не только с открытыми массивами, а и с любыми. К дизайну языка надо подходить серьезно, а не лепить что ни попадя когда кому-то это понадобилось, или просто "чтоб было". В этом смысле Дельфи очень "прогибается" в сторону С++ сейчас, равно как и FPC, следующий по стопам Дельфи. Много хлама добавили, а того, что нужно - как не было, так и нет. Запросы, кстати, на подобное заполнение массивов (так же как и на array slicing, работу с кусками массивов) были неоднократно. В FPC 2.2.0 даже сделали, чтобы array slicing работал с открытыми массивами, но это опять же не совсем продуманное и потому частичное решение.
Это был почти оффтоп. Просто действительно обидно, когда изначально хороший язык стремятся сделать похожим на не столь хороший, но "модный" и в результате губят. Если кто хочет поговорить на эту тему - добро пожаловать в "Дискуссионный Клуб"...