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

clrscr;

writeln(' Удаление рейса из расписания:');

writeln(' Введите номер рейса,который хотите удалить из расписания');

write(' -');readln(nreis);

i:=1;

f:=0;

repeat

if (mas1[i].numreis=nreis) then

begin

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

readln(k);

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

begin

for i1:=i to j1-1 do

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

j1:=j1-1;

gotoxy(30,12);

write('Рейс номер-"',nreis,'"-был удалён! ');

f:=1;

end

else

begin

i:=j;

f:=2;

end;

end;

i:=i+1;

until (i=j1+1) or (f=1);

if f=1 then