Создание меню, Очень нужна помощь !!!! Опции

[vi-rus]

Люди, очень нужна ваша помощь.

Нужно сделать меню. Допустим выглядит так : 1. Факториал
2. Сумма чисел
3. Сумма ряда

Нужно сделать так : при нажатии клавиши вниз( вверх) выделяется нижний( верхний ) элемент меню. Затем при нажатии клавиши Enter запускается соответствующая программа, которая запускает нужный модуль, и затем выполняется сама программа.
Как сделать модуль, я разобрался. Подскажите, как сделать меню ?

[volvo]

можно ли убрать мигающий курсор ?

Курсор

Сдвинуть ближе к центру экрана можно так:

procedure povtor;
begin
  clrscr;
  curchoice:=1; status:=0;
  textcolor(11); for temp:=1 to 4 do writeln('':15, menu[temp]);

только тогда может понадобиться изменять еще несколько значений... Иначе подсвечиваться будет некрасиво...

А теперь - вопрос... Я тебе что, просто так дал ссылку? Я же написал на сайте, как делать НЕ надо, и ты тут же делаешь именно так, от чего я предупреждал !!! Что, пока сам не нарвешься на проблему - никого слушать не хочешь? А потом придешь, и будешь удивляться: все правильно, а вылетает