обход дерева

[ribka]

Дерево задано 1 массивом. Обход сверху-вниз. Можно ли писать алгоритм таким образом? ("это всё очень притянуто за уши"). Дело в том, что я знаю по каким формулам вычислять соседей вершин, но не знаю как это реализовать в виде цикла. Может у кого было что-то похожее? Вот код. Кое-что я потом объединю, чтобы код не был таким объёмным, а в общем хочу слышать дельные предложения (для этого выкладываю хоть какой-то результат работы:

 i:=1;
     for k:=1 to 2 do
      begin
        L:=2*k+2*(i-1);
        if (MasDerevo[L]<>'0') and (L<=15) then
        LB2.Items.Add(MasDerevo[L]);
      end;
      L:=2*2*2+2*(i-1);
      if (MasDerevo[L]<>'0') and (L<=15) then
        LB2.Items.Add(MasDerevo[L]);
      R:=2*2*2+2*(i-1)+1;
      if (MasDerevo[R]<>'0') and (L<=15) then
        LB2.Items.Add(MasDerevo[R]);
      //inc(i);   i=1
      R:=2*2+2*(i-1)+1;
      if (MasDerevo[R]<>'0') and (L<=15) then
        LB2.Items.Add(MasDerevo[R]);
      i:=3; //i=3
      L:=2*2+2*(i-1);
      if (MasDerevo[L]<>'0') and (L<=15) then
        LB2.Items.Add(MasDerevo[L]);
      inc(i);  
      R:=2*2+2*(i-1)+1;
      if (MasDerevo[R]<>'0') and (R<=15) then
        LB2.Items.Add(MasDerevo[R]);

[alll_23]

Не охота смотреть в ваш код могу только сказать что циклом это не делается нужно пользоваться рекурсией.

[alll_23]

И из чего вы вычисляете соседние вершины непонятно, дерево
можно задать тавлицей вида(id, parentid, text)