(Under construction.)
type Text { built-in type }
program TextDemo; var t: Text; begin Rewrite (t, 'hello.txt'); WriteLn (t, 'Hello, world!') end.