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