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

USES Graph, Crt;
VAR
nbsp;nbsp;Dr, Md, M, X, Y, I : INTEGER; nbsp;Ch:CHAR;
BEGIN
nbsp;nbsp;Dr:=Detect;
nbsp;nbsp;InitGraph(Dr,Md,c:\tp7\bgi); nbsp;IF GraphResultlt;gt;0 then HALT(1);
nbsp;nbsp;REPEAT
nbsp;nbsp;nbsp;nbsp;nbsp;SetBkColor(1); SetColor(6); SetTextStyle(0,0,2);
nbsp;nbsp;nbsp;nbsp;nbsp;ClearDevice;
nbsp;nbsp;nbsp;nbsp; Вывод меню
nbsp;nbsp;nbsp;nbsp;OutTextXY(50,140,Пробел - Красим экран);
nbsp;nbsp;nbsp;nbsp;OutTextXY(50,170,Стрелка ввысь - Столбик подымается);
nbsp;nbsp;nbsp;nbsp;OutTextXY(50,200,Стрелка вниз - Столбик опускается);
nbsp;nbsp;nbsp;nbsp;OutTextXY(50,230,ESC - Выход);
nbsp;nbsp;nbsp;nbsp;REPEAT
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Ch:=ReadKey; разветвление программки по нажатию кнопки
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;CASE Ch OF
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;32:Begin Украшаем экран
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;ClearDevice;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;SetBkColor(0); SetFillStyle(1,15);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Bar(0,0,GetMaxX div 2,GetMaxY);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;SetFillStyle(1,0);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Bar(GetMaxX div 2,0,GetMaxX,GetMaxY);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;OutTextXY(70,GetMaxY-25,Нажмите DEL);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;End;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;72:Begin Ртутный столбик подымается
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;ClearDevice; nbsp;SetLineStyle(0,0,1); SetBkColor(1); SetColor(4);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;X:=GetMaxX div 2; Y:=GetMaxY div 2;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Rectangle(X,Y,X+40,GetMaxY-20);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;FOR I:=1 TO120 DO Begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;SetColor(4); SetLineStyle(0,0,3);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Line(X,GetMaxY-20-I,X+40,GetMaxY-20-i);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Delay(250);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;End;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;OutTextXY(70,GetMaxY-25,Нажмите DEL);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;End;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;80:Begin Ртутный столбик спускается
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;ClearDevice; SetLineStyle(0,0,1); SetBkColor(1); SetColor(4);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;X:=GetMaxX div 2; Y:=GetMaxY div 2;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Rectangle(x,y,x+40,GetMaxY-20);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;SetFillStyle(1,4);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Bar(x,GetMaxY-140,x+40,GetMaxY-20);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;FOR I:=1 TO 117 DO Begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;SetColor(1); nbsp;SetLineStyle(0,0,3);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Line(x+1,GetMaxY-140+i,x+39,GetMaxY-140+i);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Delay(250);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;End;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;SetColor(4); OutTextXY(70,GetMaxY-25,Нажмите DEL);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;End;
nbsp;nbsp;End;
nbsp;nbsp;UNTIL (Ch=83) or (Ch=27);
nbsp;nbsp;UNTIL (Ch=27);
nbsp;nbsp;CloseGraph;
END.