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

[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.

[Rian]

если проще думаю хватит объявить пункты двумерным массивом

pars:array [0..2, 0..5] of record cmd:integer; text:string end;

и в цикле сначала вывести, а потом проверить cmd