Pascal/Turbo Pascal - URGENTE: Como copiar un arbol

Por favor, necesito urgente un algoritmo que realice la copia de l mismo y tambien de como eliminar un nodo de este y se mantengaordenado, porque hice uno que realmente no creo que funcione, porque elimina dependiendo si se esta en el subarbol izquierdo o en el derecho.
Saludos

ahi te va la de la copia, la de borrar, asi de golpe no me sale, ahora no tengo time, a ver si mañana te la puede pasar (por supuesto usa otras funciones, que por su nombre creo que se entiende lo que hacen, y las sabras hacer...)

FUNCTION copia(arb_orig:tarbol;var arb_dest:tarbol):boolean;
BEGIN
if es_arbol_vacio(arb_orig)
then begin
arb_dest:=arb_orig;
copia:=true;
end
else begin
copia(arb_orig^.izq,arb_dest^.izq);
copia(arb_orig^.der,arb_dest^.der);
if construir_arbol(arb_orig^.izq,arb_orig^.der,arb_orig^.info,arb_dest)
then copia:=true
else copia:=false;
end;
END;