Простое вертикальное меню.
Этапы:
1. Создаешь структуру типа запись (запись будет олицетворять пункт меню)
вида
Флаг_курсора:byte {0 или 1, 1 - данный пункт подсвечен, 0 - нет},
Идентификатор_пункта:integer {ID самого пункта - что будем использовать в условных операторах},
Название_пункта: String
2. Делаешь массив этих записей.. [1..n] - где n - кол-во пунктов меню...
3. Собсна выводишь делаешь цикл типа REPEAT
Внутри у него выводишь меню циклом FOR подсвечивая при этом пункт, на котором стоит курсор (Флаг_курсора=1).
В этом же цикле (repeat) считываешь клавишу (стрелки, Enter) и в зависимости от этого - либо переходишь на выполнение еще одной итерации (цикла REPEAT) - но уже подсвечивая другой пункт. Либо, если нажат Enter - тогда принимаешь ввод (Идентификатор_пункта, у которого Флаг_курсора=1)
;)