Программа

VAR Exit:boolean;              { Флаг "Выход" }
FUNCTION Menu:integer;          { Функция вывода меню и получения ответа }
  Const QuantityMenuPoint=3;   { Количество пунктов меню }
        ExitPoint=QuantityMenuPoint; { Пункт меню "Выход" }
  Var Point:integer;               { Выбранный пункт меню }
      AnswerBuf:char;           { Переменная для получения ответа на меню }
  Begin
    repeat  { Цикл чтения клавиатуры }
      WriteLn; { Пропуск строки }
      WriteLn('МЕНЮ:');
      WriteLn('[1] Ввод данных об игроке');
      WriteLn('[2] Вывод списка игроков отсортированного по очкам');
      WriteLn('[3] Выход');
      ReadLn(AnswerBuf); { Чтение ответа на меню }
      Point:=Ord(AnswerBuf)-Ord('0'); { Перевод полученного символа в пункт меню }
    until (0<Point) and (Point<=QuantityMenuPoint);
                          { Выход из цикла при пролучении корректного ответа }
    { Определение значения функции: }
    if Point=ExitPoint then Menu:=255
                       else Menu:=Point
  End;
BEGIN
  Exit:=FALSE;    { Сброс флага "Выход" }
  repeat   { Цикл работы программы }
    case Menu of       { Выбор действия по ответу на меню }
        1:;
        2:;
        3:;
      255:Exit:=TRUE  { Подъем флага "Выход" }
    end
  until Exit;
END.

  СХЕМА ПРОГРАММЫ


  ***************
 *               *
 *    П У С К    *
 *               *
  ***************
         :
 *****************          ┌─
 *               *          │  Сброс
 *               *          │
 *  Exit:=FALSE  *∙∙∙∙∙∙∙∙∙∙│  флага
 *               *          │
 *               *          │  "Выход"
 *****************          └─
         :
         :∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙<∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙.
         :                                                                     :
         :                                                                     :
         :                                                                     :
         :                                                                     :
         :                                                                     :
         *                                                                     :
       *   *                                                                   :
     *       *                                                                 :
   *           *                                                               :
 *     Menu      *                                                             :
   *           *                                                               :
     *       *                                                                 :
       *   *                                                                   :
         *                                                                     :
         :                                                                     :
         :∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙.         :
         :1                  :2                  :3                  :255      :
         :                   :                   :                   :         :
         :                   :                   :                   :         :
 *****************   *****************   *****************   ***************** :
 *               *   *               *   *               *   *               * :
 *               *   *               *   *               *   *               * :
 *               *   *               *   *               *   *   Exit:=TRUE  * :
 *               *   *               *   *               *   *               * :
 *               *   *               *   *               *   *               * :
 *****************   *****************   *****************   ***************** :
         :                   :                   :                   :         :
         :∙∙∙∙∙∙∙∙∙∙∙<∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙<∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙<∙∙∙∙∙∙∙'         :
         :                                                                     :
         :                                                                     :
         :                                                                     :
         *                                                                     :
       *   *                                                                   :
     *       *                                                                 :
   *           *   Нет                                                         :
 *      Exit     *∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙'
   *           *
     *       *
       *   *
         *
         : Да
         :
         :
         :
         :
  ***************
 *               *
 *   К О Н Е Ц   *
 *               *
  ***************