Ссылка внутри массива pchar

[Kronos913]

const
  q:pchar='1234';
  a:array[0..1] of pchar=('555', q );

const
  q:pchar='1234';
  a:array[0..1] of pchar=('555', pchar(q) );

Два таких кода выдали ошибку. Из-за чего возник вопрос:
как внутри массивов pchar вместо одного элемента, сделать ссылку на константу?

[Arigato]

В Лазарусе тоже не работает. Причем сообщение об ошибке весьма глупое:

Error: Incompatible types: got "SYSTEM.PChar" expected "SYSTEM.PChar"

То есть компилятор пишет, что встретил SYSTEM.PChar, хотя ожидал SYSTEM.PChar. Явный косяк компилятора, ведь он встретил то, что и ожидал.

Ну переделайте код. Например, так работает:

const
  q = '1234';
  a: array[0..1] of PChar = ('555', q);