Написать систему ниспадающего меню, которая в зависимости от выбора nbsp;nbsp;nbsp;nbsp;юзера выводит

USES Crt,Graph;
LABEL nbsp;Ex,New;
VAR nbsp;Gd,Gm : INTEGER; nbsp;Av: CHAR;
PROCEDURE DAY; процедура-солнечное затмение
VAR nbsp;X,Y,X1,Y1 : INTEGER; nbsp;U: REAL;
BEGIN
nbsp;nbsp;ClearDevice; nbsp;SetFillStyle(1,14); nbsp;SetColor(14);
nbsp;nbsp;X:=GetMaxX DIV 2; nbsp;Y:=GetMaxY DIV 2;
nbsp;nbsp;FillEllipse(X,Y,50,50); солнце
nbsp;nbsp;FOR Gm:=1 TO 150 DO Begin
nbsp;nbsp;nbsp;nbsp;nbsp;U:=Random(359);
nbsp;nbsp;nbsp;nbsp;nbsp;X1:=Trunc(Random (200)*COS(U))+X; nbsp;nbsp;Y1:= Trunc (Random (200)*SIN(U))+Y;
nbsp;nbsp;nbsp;nbsp;nbsp;Line(X,Y,X1,Y1); солнечные лучи
nbsp;nbsp;End;
nbsp;nbsp;SetFillStyle(1,8); nbsp;SetColor(8);
nbsp;nbsp;FillEllipse(X-15,Y,50,50); тень луны
nbsp;nbsp;REPEAT
nbsp;nbsp;UNTIL KeyPressed; задержка до нажатия хоть какой клавиши
END;
PROCEDURE NOCH; процедура - лунная ночь со звездами
nbsp;VAR nbsp;R,X,Y,I:INTEGER;
BEGIN
nbsp;nbsp;ClearDevice; nbsp;SetFillStyle (1,15); SetColor (15);
nbsp;nbsp;FOR I:=1 TO 50 DO Begin
nbsp;nbsp;nbsp;nbsp;nbsp;R:= Random (2);
nbsp;nbsp;nbsp;nbsp;nbsp;PutPixel(Random (GetMaxX), Random (GetMaxY),15);
nbsp;nbsp;nbsp;nbsp;nbsp;PutPixel(Random (GetMaxX), Random (GetMaxY),15);
nbsp;nbsp;nbsp;nbsp;nbsp;FillEllipse(Random (GetMaxX), Random (GetMaxY),R,R);
nbsp;nbsp;End;
nbsp;nbsp;SetFillStyle (1,15); SetColor (15); FillEllipse (200,100,50,50);
nbsp;nbsp;SetFillStyle (1,0); nbsp;nbsp;SetColor (0); nbsp;nbsp;FillEllipse (180,100,50,50); луна
nbsp;nbsp;REPEAT
nbsp;nbsp;UNTIL KeyPressed; задержка до нажатия любой клавиши
END;
BEGINглавная программка
nbsp;nbsp;Gd:=Detect; nbsp;InitGraph(Gd,Gm,C:\tp7\BGI);
nbsp;nbsp;WHILE true DO Begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;SetFillStyle (1,1); nbsp;FloodFill(10,10,1); SetFillStyle (1,0);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Bar(215,115,415,365);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;SetColor (5); SetFillStyle (1,5);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Bar(200,100,400,350);меню
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;SetTextStyle(7,0,5); SetColor (0);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;OutTextXY(237,117,MENU); OutTextXY (237,287,EXIT);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;SetColor (12); OutTextXY (235,115,MENU);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;SetColor (4); OutTextXY (235,285,EXIT);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;SetTextStyle (0,0,3); SetColor (0);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;OutTextXY (227,207,D:Денек); OutTextXY (227,247,N:НОЧЬ);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;SetColor (3); OutTextXY (225,205,D:Денек); OutTextXY (225,245,N:НОЧЬ);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;SetColor (15); SetTextStyle (0,0,2);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;OutTextXY (100,450,использовать кнопки D,N,ESC);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Av:=ReadKey;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;CASE Av OF разветвление программы по нажатию кнопки
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;D,d : nbsp;nbsp;nbsp;DAY;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;N,n : nbsp;nbsp;nbsp;NOCH;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;CHR(27) : GOTO Ex;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;End;
nbsp;nbsp;End;
nbsp;nbsp;Ex: CloseGraph;
END.