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

k:char;

name:string[30];

begin

clrscr;

writeln(' Удалениe информации о пассажире:');

writeln(' Введите Ф.И.О. пассажира, которого хотите удалить из базы данных');

write(' -');readln(name);

i:=1;

f:=0;

repeat

if mas[i].fio=name then

begin

gotoxy(30,12);write('Пассажир найден, удалить его (д/н)-');

readln(k);

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

begin

for i1:=i to j-1 do

mas[i1]:=mas[i1+1];

j:=j-1;

gotoxy(30,12);

write('Пассажир-"',name,'"-был удалён! ');

f:=1;

end

else

begin

i:=j;

f:=2;

end;

end;