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

и символов

textattr:=sel;

gotoxy(x,y+punkt-1);

write(menu1[punkt]); выделим строку меню

textattr:=norm;

end;

procedure new_pass;

var

ff:file of airport;

buf:airport;

ch,k:char;

begin

clrscr;

assign(ff,'airport.dat');

reset(ff);

seek(ff,filesize(ff));

writeln(' "Оформление нового пассажира"');

writeln(' Введите фио--------------');

writeln(' Введите номер паспорта---');

writeln(' Введите пункт назначения-');

writeln(' Введите номер рейса------');

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

with buf do

begin

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

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

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

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

end;