Графическое меню

[Andrey770]

Помогите доработать меню.
Нужно поставить курсор и что б при нажатие на пункт меню отображалась информация. Помогите, очень надо.

program Kursova;
uses crt,graph;
var
       driver,mode:integer;
       x,y:integer;

begin


driver:=detect;
initgraph(driver,mode,'');





            setbkcolor(7);

         setcolor(1);                 {frames}
         rectangle(0,478,638,4);
         rectangle(2,476,636,6);

      setcolor(white);
      rectangle(4,474,634,8);
      rectangle(6,472,632,10);

    setcolor(11);      {name}
    rectangle(7,30,631,11);

setcolor(10); {text of name}
outtextxy(140,15,'-= Integration of functions by rectangle =-');

setcolor(11);
rectangle(42,468,600,448);

setcolor(10);
outtextxy(150,455,chr(27)+ chr(26)+ chr(25 ) + chr(24)+ '-move cursor, Enter-choice, Esc-exit ');

setcolor(11);    {border}
rectangle(7,31,631,50);

setcolor(10); {iformations of border}
outtextxy(200,35,chr(16)+ ' Please, press menu item number');

setcolor(11);                   {menu}
rectangle(50,150,210,300);


setcolor(11);      {information}
rectangle(430,150,590,300);

setcolor(11);        {exit}
rectangle(430,400,210,350);

setcolor(10);       {text of the menu}
outtextxy(55,170,'*1* Integration of');
outtextxy(100,181,'functions');

setcolor(10);                  {text of Exit}
outtextxy(280,370,'*2* Exit');

setcolor(10);
outtextxy(440,165,'*a* Method of ');
outtextxy(490,175,'rectangles');
outtextxy(440,195,'*b* Formul''s');
outtextxy(440,215,'*c* Literature');




readln;



end.

я все сделав в графическом режиме. Потом уже розпредилю в процедуры и функии

[gylayko]

Не понял, так в чем вопрос???

[Serge_Bliznykov]

Не понял, так в чем вопрос???

а зачем поднимать тему полугодовой давности?!