阅读下列算法，若有错，则改正。

BiTree InSucc(BiTree q)

{//已知q是指向中序线索二叉树上某个结点的指针，本函数返回指向*q的后继的指针

  r =q->rchild;

  if (!r->rtag)

     while (!r->rtag)  r =r->rchild;

  return r;

}