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;
{**TYPE**}
type
TReys = record
  NR:integer;
  PO,PP:string[30];
  DateO,DateP:string[10];
  TimeO,TimeP:string[5];
  KolM:byte;
  CenaB:string[7];
  end;

TFReys = file of TReys;
{**TYPE**}
var
  M : Menu;
  Ch : Char;
  Key : MenuKey;



procedure VvodR (var R:TReys);
  begin
    write('Nomer reysa: '); readln(R.NR);
    write('Punkt otpravlenija: '); readln(R.PO);
    write('Date otpravlenija: '); readln(R.DateO);
    write('Vremja otpravlenija: '); readln(R.TimeO);
    write('Punkt pribitija: '); readln(R.PP);
    write('Date pribitija: '); readln(R.DateP);
    write('Vremja pribitija: '); readln(R.TimeP);
    write('Kolichestvo mest (biletov): '); readln(R.KolM);
    write('Cena bileta: '); readln(R.CenaB);
  end;

procedure RReys;
var  F:TFReys;
     R:TReys;

begin
  assign(F,'C:\Reys.dat');
{$I-}
Reset(F);
if IOResult<>0 then
  Rewrite(F);
{$I+}
  VvodR(R);
  Seek(F,FileSize(F));
  write(F,R);
  Close(F);
end;

procedure WriteD;
var  F:TFReys;
     R:TReys;

begin
  assign(F,'C:\Reys.dat');
  Reset(F);
  while not Eof(F) do
    begin
      read(F, R);
      Writeln(R.NR: 10, R.PP: 20);
    end;
  Close(F);
  Readln;
end;

procedure P3;
begin
end;

begin clrscr;
  repeat
    case key of
    1: RReys;

    3: WriteD;
    end;
    InitMenu(M);
    Key := MenuChoice(M, Ch);
    EraseMenu(M, False);
  until key = 4;
end.