Begin clrscr;

GlobalMenu; {Основное меню}

Repeat
Ch:=Readkey; {Считываем ASCII-код клавиши}
{[#48..#57] - клавиши от 0 до 9 по таблице ASCII кодов}
if Ch in [#48..#57] then
   case Ch of
        #49:Begin
            GlobalMenu2; {Дополнительное меню}
            {блаблабла}
            end;
        #50:DeleteDataBase(Phone,Ns,Number(Ns)); {Удаление информации}
        #51:ChangeDataBase(Phone[Number(Ns)]); {Изменение информации}
        #52:SaveDataBase(Phone,Ns); {Сохранение информации в Базу Данных}
        #53:ReadingDataBase(Phone,Ns,N); {Загрузка информации из Базы Данных}
    {блблабла}
        #48:Exit; {Выходим из программы}
   end;
until Ch=#48;
end.