Изменения

DeleteTree(i, p) p1 := RootCount[i].ListPointer; if(p1 == p) RootCount[i].ListPointer := p.Right; j:= 1; while(j<=RootCount[i].Value) and (p1.Right != p) do p1.Right = p.Right;