(Under construction.)
type PAnsiChar = ^AnsiChar;
program PAnsiCharDemo; var s: PAnsiChar; begin s := 'Hello, world!'; {$X+} WriteLn (s) end.