Система по продаже билетов., Не получается организовать ввод в БД. Опции

[dmx]

Привет всем! Помогите пожалуйста сделать так, что бы при выборе пункта "ENTER INFO TO DB" (см. прикрепленный файл) можно было вводить информацию о рейсах в базу данных. В прикрепленном файле меню создавалось при помощи Turbo Professional. Назначение программы - продажа билетов на самолеты.

Заранее благодарен.

Вот, что у меня имеется:

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;


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,'Reys.dat');
{$I-}
Reset(F);
if IOResult<>0 then
  Rewrite(F);
{$I+}
  VvodR®;
  Seek(F,FileSize(F));
  write(F,R);
  Close(F);
end;