Простое вертикальное меню.
Этапы:
1. Создаешь структуру типа запись  (запись будет олицетворять пункт меню) 

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