Status Delete(BiTree &p) {  // 算法9.8
  // 從二叉排序樹中刪除結點p，并重接它的左或右子樹
  BiTree q, s;
  if (!p->rchild) {  // 右子樹空則只需重接它的左子樹
    q = p;  p = p->lchild;  free(q);
  } else if (!p->lchild) {  // 只需重接它的右子樹
    q = p;  p = p->rchild;  free(q);
  } else {  // 左右子樹均不空
    q = p;  s = p->lchild;
    while (s->rchild)   // 轉左，然后向右到盡頭
      { q = s;  s = s->rchild; }
    p->data = s->data;                  // s指向被刪結點的“后繼”
    if (q != p) q->rchild = s->lchild;  // 重接*q的右子樹
    else q->lchild = s->lchild;         // 重接*q的左子樹
    free(s);    
  }
  return TRUE;
} // Delete