Реферат: Касса аэропорта

procedure new_reis;

var

ff:file of airbase;

buf:airbase;

ch,k:char;

begin

clrscr;

assign(ff,'airbase.dat');

reset(ff);

seek(ff,filesize(ff));

writeln(' "Расписание вылетов:"');

writeln(' Номер рейса--------------');

writeln(' Направление--------------');

writeln(' Время вылета(моск)-------');

writeln(' Цена билета(руб)---------');

writeln(' Тип самолета-------------');

writeln(' Класс(1 или 2)-----------');

writeln(' Подтверждение д/н--------');

with buf do

begin

gotoxy(29,2);readln(numreis);

gotoxy(29,3);readln(kuda);

gotoxy(29,4);readln(time);

gotoxy(29,5);readln(price);

gotoxy(29,6);readln(model);

gotoxy(29,7);readln(klass);

end;

gotoxy(29,8);readln(k);

if (k='д') or (k='Д') then