不知你发这贴是什么意思，让别人帮你写这个函数吗？

Procedure BTreeInsert(var last,p:BTree;n:integer);{二分查找+二叉树的插入}
 Begin
   if p<>NIL then 
     if n<p^.data then BTreeInsert(p,p^.leftchild,n)
                  else BTreeInsert(p,p^.rightchild,n)
   else begin
     new(p);p^.data:=n;p^.leftchild:=NIL;p^.rightchild:=NIL;
     if n<last^.data then last^.leftchild:=p
                     else last^.rightchild:=p;
   end;
End;