uses
  TPString,
  TPCrt,
  TPCmd,
  TPWindow,
  TPMenu;

procedure InitMenu(var M : Menu);
const
  Color1 : MenuColorArray = ($0E, $2E, $03, $1E, $0B, $0E, $19, $78);
  Frame1 : FrameArray = '扇患秃';

begin
  {Customize this call for special exit characters and custom item displays}
  M := NewMenu([], nil);

  SubMenu(1,2,1,Horizontal,Frame1,Color1,'');
    MenuItem('ENTER INFO TO DB',2,1,1,'Enter information to database.');
    MenuItem('EDIT DB',20,1,2,'Edit information in database.');
    MenuItem('BUY A TICKET',29,1,3,'Buy a ticket for airplane.');
    MenuItem('EXIT',43,1,4,'Exit to windows.');
    PopSublevel;

  ResetMenu(M);
end;

var
  M : Menu;
  Ch : Char;
  Key : MenuKey;

procedure P1;
begin
end;

procedure P2;
begin
end;

procedure P3;
begin
end;

begin
  repeat
    case key of
    1: P1;
    2: P2;
    3: P3;
    end;
    InitMenu(M);
    Key := MenuChoice(M, Ch);
    EraseMenu(M, False);
  until key = 4;
end.