PNode = ^TNode;
TNode = record
FID: Integer;
Child: array[0..3] of PNode;
end;
FArray: array[0..999] of PNode
.........................................
New(FArray[0])
FArray[0].Child[0] := FArray[455];
FArray[0].Child[0] := FArray[11];
FArray[0].Child[0] := FArray[12];
FArray[0].Child[0] := FArray[45];
если FArray
[455], FArray
[11], FArray
[12], FArray
[45] еще не указывают никуда, то я могу заранее назначать им чаилды, а уж затем зделать:
New(FArray
[455])
New(FArray
[11])
New(FArray
[12])
New(FArray
[45])