我如何将数组转换为树

type node=record
   id:integer;
   data:string;
   ttype:string;
   parentID:integer;
end;
var tree:array of note;begin
//初始化，读入
.....
end;如上面代码，一个数组维中，含有四个字段，ID定义了该节点的编号，Data定义了该节点的数据，Ttype定义了该节点是否含有子节点和兄弟节点，分别用0,4,8,C表示无兄有子，无兄无子，有兄有子，有兄无子，某个节点如果有儿子，那个，后面一个节点肯定是他的儿子，等他的儿子排完了，再排他的兄弟现在的要求：求每个节点的父节点。