/usr/share/doc/firebird/sample/object_pascal/03.select.pas