Simple text menu (FreePascal)