/usr/share/doc/firebird/sample/object_pascal/01.create.pas