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

[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;

[volvo]

Я бы делал что-то типа меню. То есть описывал бы вот такую структуру:

Type
  menuRec = record
    s: string;
    offset: longint;
  end;

создал бы массив (или список, как тебе удобнее, для неизвестного количества элементов - лучше, конечно, список) элементов этого типа, и при чтении из файла добавлял бы в S ту минимальную информацию, что ты выводишь на экран сейчас, а в поле offset - смещение от начала файла записи, содержащей ПОЛНУЮ информацию.

Тогда можно выводить краткое описание, по нажатию ArrowUp/ArrowDown перемещаться по элементам (реализации меню уже выкладывались на форуме), а при нажатии Enter - считать из файла полную информацию (offset же есть), и отображать ее на экране...