Меню, меню в графическом режиме Опции

[Katrinka]

Доброе время суток!
Подскажите пожалуйста, как сделать меню в графическом режиме так, чтобы каждому пункту соответствовал прямоугольник с надписью, и управление осуществлялось бы стрелками, причем при выделении прямоугольника он менял бы цвет? И после выполнения ряда действий, соответствующих пункту, пользователь возращался в меню?

Заранее большое спасибо!

[volvo]

хотелось бы кнопки друг над другом расположить (Как это сделать?)

изменить процедуру show_menu на такую:

procedure show_menu(current: integer;
          const menu_str: array of string;
          const size: integer);
var
  i, py, color, max_width: integer;
begin
  py := dist;
  setcolor(white);
  settextjustify(centertext, centertext);

  max_width := 0;
  for i := 0 to pred(size) do
    if textwidth(menu_str[i]) > max_width then
      max_width := textwidth(menu_str[i]);

  for i := 0 to pred(size) do begin

    if (current - 1) = i then color := lightgreen
    else color := green;

    setfillstyle(solidfill, color);
    bar(dist, py,
        dist + max_width + 2 * dist,
        py + textheight(menu_str[i]) + 2 * dist);
    rectangle(dist, py,
        dist + max_width + 2 * dist,
        py + textheight(menu_str[i]) + 2 * dist);

    outtextxy(dist + (max_width + 2 * dist) div 2,
              py + (textheight(menu_str[i]) + 2 * dist) div 2,
              menu_str[i]);
    inc(py, textheight(menu_str[i]) + 3 * dist)

  end;
end;

и обрабатывать не кнопки "влево/вправо", а "вверх (#72)/вниз (#80)"...

мой паскаль не печатает на русском

Читай вот это:
Turbo Pascal на Xp.

Если тебе понадобится в графическом режиме выводить кириллицу (через outtext/outtextxy) - придется добавлять русифицированные шрифты, если надо - дам ссылку, где их можно взять...