<code>
rmFixRootCount(i) if(MaxRank == i) maxRank : MaxRank = i + 1; RootCount[i+1].Value := 0; CountViolation[i+1].Value := 0; else UpdateForwardPointer(i+1); RootCount[i].Value := 0; p1 := RootCount[i].ListPointer; p2 := p1.Right; p3 := p2.Right; p := Fastening(p1, p2, p3); RootCount[i].ListPointer := NULL; InsertTree(i+1, p); RootCount[i+1].Value := RootCount[i+1].Value + 1;
</code>
