я столкнулся с проблемой в коде. из этого меню почему-то не вызываются процедуры options и about:
Код
procedure menu;
var key,pos,i: integer;
menu: array[1..5] of Image;
begin
// Начальная позиция в меню
pos:=2;
// Заполняем названия пунктов меню
menu[1]:=LoadImage('/menu_fon.png');
menu[2]:=LoadImage('/Play.png');
menu[3]:=LoadImage('/Options.png');
menu[4]:=LoadImage('/About.png');
menu[5]:=LoadImage('/Exit.png');
repeat
drawImage(menu[1],0,0);
// Здесь рисуем каждый элемент меню
for i:=2 to 5 do
begin
if i=pos then
begin
SetColor(0,160,255);
FillRect(115-(getimagewidth(menu[i])/2),i*30+15,140,26);
drawImage(menu[i],120-(getimagewidth(menu[i])/2),i*30+20);
end
else
begin
drawImage(menu[i],120-(getimagewidth(menu[i])/2),i*30+20);
end
end;
SetColor(0,0,0);
// Выводим всё на экран
repaint;
delay(20);
// Тут получаем нажатие на клавиши
key:=getKeyClicked;
key:=keyToAction(key);
// Проверяем какие клавиши нажаты
if key=GA_UP then if pos=2 then pos:=5 else pos:=pos-1;
if key=GA_DOWN then if pos=5 then pos:=2 else pos:=pos+1;
if key=GA_FIRE then
begin
// Если переход по пункту меню - то смотрим какой пункт выбран
// и совершаем соответствующее действие
if pos=2 then wp_start;
if pos=3 then options;
if pos=4 then about;
if pos=5 then Halt;
end;
until false;
end;