Надо из POINTER [untagged] TO ARRAY [untagged] OF SHORTCHAR скопировать символы в ARRAY OF SHORTCHAR (в открытый массив).
Так заработало:## Код:
```
s := p$
(s - ARRAY OF SHORTCHAR;   p - POINTER [untagged] TO ARRAY [untagged] OF SHORTCHAR)
```
Даже не пришлось ставить крышку (^).
Спасибо за помощь.