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

delay(9999);

delay(5000);

end;

end;

procedure new_airport;

var

ff:file of airport;

k:char;

begin

clrscr;

gotoxy(36,12);

textbackground(red);

textcolor(blink);

writeln('ВНИМАНИЕ!');

textattr:=norm;

gotoxy(10,13);

write('Вы действительно хотите очистить базу данных о пассажирах (д/н)?-');

readln(k);

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

begin

clrscr;

assign(ff,'airport.dat');

rewrite(ff);

gotoxy(30,12);

writeln('База АЭРОПОРТА очищена!');

close(ff);

delay(9999);

delay(5000);

end;