Изменения

InsertTree(i, p) p1 := RootCount[i].ListPointer; if(RootCount[i].Value != 0) p.Right = p1; else p.Right = NULL; p.Left := NULL; RootCount[i].ListPointer := p;