redblacktree.pas