как сделать в пунктах подпункты? Опции

[INZA]

как сделать в пунктах подпункты?

 Program L3;
Uses crt;
Var a1,b1,c1,d1,e1,f1,x :integer;
    a,b,c:boolean;
    pr:char;
    i,Old_Color :byte;
    ch          :char;
Begin
  Old_Color:=Textattr;
  Repeat
    window(1,1,80,25);
    textattr:=black shl 4+cyan;
    clrscr;
    gotoxy(5,1);
    write(' JIa6apaTopHa9I #3');
    window(20,8,60,18);
    textattr:=black shl 4+cyan;
    clrscr;
    gotoxy(11,4);
    write(' 1-zadanie 1');
    gotoxy(11,5);
    write(' 2-zadanie 2');
    gotoxy(11,6);
    write(' 3-o proge');
    gotoxy(11,8);
    write(' Esc-exit  ');
    textcolor(cyan); gotoxy(12,2);write(' Baw BbI6op? ');
    ch:=readkey;
    if ch<>#0 then
     begin
      window(5,3,75,18);
      textattr:=black shl 4+Cyan;
      clrscr;
      case ch of
      #49:Begin
          TextAttr:=Black shl 4+Cyan;
          ClrScr;

          readln(pr);
          if pr='1' then
           begin

          end;
         if pr= '2' then
          begin

          end;

         Readkey;
        End;
      #50:Begin
           TextAttr:=black shl 4+Yellow;

           Readkey;
          End;
      #51:Begin

           Readkey;
          End;
       #27:exit;
      End;
     end;
 until(ch=#27);
 window(1,1,80,25);
 textattr:=Old_Color;
 clrscr;
END.

[IUnknown]

Пишется простейшая функция, которая, собственно, отображает менюшку, и делается так:

Меню любой степени вложенности (Показать/Скрыть)

Program L3;
Uses crt;

const
   mainMenu : array[1 .. 4] of string =
   ('1 - Task 1', '2 - Task 2', '3 - Task 3', '4 - Exit');

   submenu_1 : array[1 .. 3] of string =
   ('1.1 - Task 1 -> SubTask 1',
    '1.2 - Task 1 -> SubTask 2',
    '1.3 - Exit');
   submenu_2 : array[1 .. 4] of string =
   ('2.1 - Task 2 -> SubTask 1',
    '2.2 - Task 2 -> SubTask 2',
    '2.3 - Task 2 -> SubTask 3',
    '2.4 - Exit');
   submenu_3 : array[1 .. 3] of string =
   ('3.1 - Task 3 -> SubTask 1',
    '3.2 - Task 3 -> SubTask 2',
    '3.3 - Exit');


function menu(TA : byte; const items : array of string) : integer;
var
   i : integer;
   ch : char;
begin
   TextAttr := TA;
   clrscr;
   for i := 0 to Length(items) - 1 do
   begin
      gotoxy(11, 4 + i);
      write(items[ i ]);
   end;
   gotoxy(12, 2);
   write(' Your choice : ');

   repeat
      ch := readkey;
   until Ord(ch) - Ord('0') in [1 .. Length(items)];
   menu := Ord(ch) - Ord('0');
end;


var
   Old_Color : byte;
begin
   Old_Color:=Textattr;
   repeat
      Window(1, 1, 80, 25);
      TextAttr := Black shl 4 + Cyan;
      ClrScr;
      GotoXY(5, 1);
      Write(' JIa6apaTopHa9I #3');
      Window(20, 8, 60, 18);

      case menu(Black shl 4 + Cyan, mainMenu) of
         1 :
         case menu(Black shl 4 + Cyan, submenu_1) of
            1 : begin end;
            2 : begin end;
         end;

         2 :
         case menu(Black shl 4 + Yellow, submenu_2) of
            1 : begin end;
            2 : begin end;
            3 : begin end;
         end;

         3 :
         case menu(Black shl 4 + Red, submenu_3) of
            1 : begin end;
            2 : begin end;
         end;

         4 : break;
      end;
   until false;

   Window(1, 1, 80, 25);
   TextAttr := Old_Color;
   ClrScr;
END.

(не надо никаких двумерных массивов: в одном подменю может быть 9 пунктов, в другом - 2, что, их все под одну гребенку, и всем место под 9 элементов выделять? "Это не наш метод" (С))