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

clrscr;

write(ff,buf);

gotoxy(30,12);

write('Рейс записан в базу данных!');

end

else

begin

clrscr;

gotoxy(30,12);

write('Запись в базу отменена!');

end;

delay(9999);

delay(5000);

until (ch=chr(162)) and (ch=chr(130));

close(ff);

end;

procedure print_reis;

var

ff:file of airbase;

buf:airbase;

ch,k:char;

et:integer;

begin

clrscr;

assign(ff,'airbase.dat');

reset(ff);

writeln(' Расписание вылетов(время московское):');

et:=1;

repeat