Динамические структуры данных. Написать функцию, которая удаляет узел из поискового дерева

Program uzel;
Type BT=LongInt; U = ^BinTree; BinTree = Record Inf : BT; L, R : U End;
function Delete(Tree: U; x: BT) : U;
var P, v : U;
begin
   if (Tree=nil)
   then writeln('такого элемента в дереве нет!')
   else if x < Tree^.inf then Tree^.L := Delete(Tree^.L, x) {случай 1}
                         else
                          if x > Tree^.inf
                          then Tree^.R := Delete(Tree^.R, x) {случай 1}
                          else
                          begin {случай 1}
                           P := Tree;
                           if Tree^.R=nil
                           then Tree:=Tree^.L
                           else if Tree^.L=nil
                                then Tree:=Tree^.R
                                else begin
                                      v := Tree^.L;
                                      if v^.R <> nil
                                      then begin
                                             while v^.R^.R <> nil do v:= v^.R;
                                             Tree^.inf := v^.R^.inf;
                                             P := v^.R;
                                             v^.R :=v^.R^.L;
                                           end
                                      else begin Tree^.inf := v^.inf;
                                                 P := v;
                                                 Tree^.L:= Tree^.L^.L
                                           end
                                     end;
                           dispose(P);
                          end;
Delete := Tree
end;