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

write(menu[punkt]);

textattr:=norm;

end;

chr(72): стрелка вверх

if (punkt<=n) and (punkt>1) then begin

gotoxy(x,y+punkt-1);

write(menu[punkt]);

punkt:=punkt-1;

textattr:=sel;

gotoxy(x,y+punkt-1);

write(menu[punkt]);

textattr:=norm;

end;

end; case of

end

else

if ch=chr(13) then нажата клавиша

begin

case punkt of

1:new_pass;

2:print_pass;

3:

begin

maspas;

delete_pass;

end;

4:search_pass;

5:new_airport;

6:ch:=chr(27);