(Under construction.)
type PChar = ^Char;
type PChar = CString;
program PCharDemo; var s: PChar; begin s := 'Hello, world!'; {$X+} WriteLn (s) end.