Изменения

DeleteTreedeleteTree(i, p): p1 = RootCountrootCount[i].ListPointerlistPointer '''if''' p1 == p: RootCountrootCount[i].ListPointer listPointer = p.Rightright

'''while''' (j <tex> \le </tex> RootCountrootCount[i].Value) '''and''' (p1.Right right <tex> \ne </tex> p):

p1 = p1.Rightright p1.Right right = p.Rightright