Пример многоуровневого списка (не из учебника)

Виды информации(многоуровневый список, 2 уровня в данном случае): 1текстовая 1.1книги 1.2журналы 1.3статьи в интернете 2звуковая или аудио 2.1живая речь 2.2песни 2.3аудиокниги

Const   n = 20; var   pos,neg: integer;   i,k,x: integer;   ev,un: integer;   a,b: array [1..n] of integer; begin   for i : = 1 to n do     read(a[i]);     k : = 0;   pos : = 0;   neg : = 0;     for i : = 1 to n do     begin         ev : = 0;     un : = 0;         x : = a[i];         if x < > 0 then       if x > 0 then         if (x < pos) or (pos = 0) then           pos : = x         else       else         if (x > neg) or (neg = 0) then           neg : = x;         x : = abs(x);         while x < > 0 do       begin       if odd(x) then         un : = un + 1       else         ev : = ev + 1;       x : = x div 10       end;         if un = ev then       begin       k : = k + 1;       b[k] : = a[i]       end         end;   writeln(pos,' ',neg);   for i : = 1 to k do     write(b[i],' ')   end.