Как правильно сделать функцию? (Из Паскаля в С++)

procedure Delete (X: string; var PNode: TPtrNode; var H: boolean);
//выполняет поиск удаляемого узла и его замену
var Q: TPtrNode; // сохраняет указатель на удаляемый узел
 
procedure Del (var R: TPtrNode; var H: boolean);
begin
//выполняет поиск самого правого узла в левом поддереве
     if R^.Right < > nil then 
     begin //спуск по правому поддереву
         Del (R^.Right, H);
         if H then Balance_R (R, H); {откат по пути спуска по правому поддереву  
         и, если нужно, балансировка}
     end
     else 
     begin
{перенос содержимого самого правого узла в левом поддереве R на место подлежащего удалению узла Q. Поля узла R переписываются на место соответствующих полей "удаляемого" узла Q. В результате структура дерева не нарушается, а реальному удалению из памяти подвергается узел R, для чего переменная Q запоминает ссылку на него}
 
         Q^.Name := R^.Name;
         Q^.Count := R^.Count;
         Q := R; {запоминается ссылка Q на переносимый узел R, который подлежит реальному удалению}
         R := R^.Left; {т.к. переносимый узел R самый правый в поддереве, поэтому у него возможно только левое       
         поддерево и его корень "подтягивается" на место переносимого узла}
         H := true;
     end;
end; //Del
 
// исполняемая часть процедуры Delete
begin
      if PNode = nil then 
         Writeln ('Узла с заданным ключом в дереве нет')
      else
          if PNode^.Name > X then 
          begin
               Delete (X, PNode^.Left, H); //спуск по левому поддереву
               if H then 
               Balance_L (PNode, H) {откат по пути спуска по левому поддереву и, если нужно, балансировка}
          end
          else
               if PNode^.Name < X then 
               begin 
                       Delete (X, PNode^.Right, H); //спуск по правому поддереву
                       if H then 
                             Balance_R (PNode, H); {откат по пути спуска правому поддереву и, если нужно, балансировка}
               end
               else { исключение PNode }
                      if PNode^.Count = 1 then 
                      begin //т.е. дубликатов нет
                              //выполняется удаление узла и перемещение на
                              //его место соответствующего замещающего узла
                              Q := PNode; {переменная Q сохраняет адрес узла, подлежащего физическому удалению}
                              if PNode^.Right = nil then 
                              begin
                              {у удаляемого Q узла имеется только левое поддерево и в результате удаления высота дерева 
                              уменьшается}
                                     PNode := PNode^.Left;
                                     H := true;
                              end
                              else
                              if PNode^.Left = nil then 
                              begin
                              {у удаляемого узла Q имеется только правое поддерево и в результате удаления высота дерева 
                               уменьшается}
                                     PNode := PNode^.Right; 
                                     H := true;
                              end
                              else 
                              begin {у удаляемого узла Q имеются оба поддерева; выполняется поиск самого правого узла в 
                              левом поддереве и его перемещение на место удаляемого узла, после чего, если необходимо, 
                              левая балансировка}
                                    Del (Q^.Left, H); //переменная Q получит адрес самого
                                    //правого узла в левом поддереве
                                    if H then 
                                           Balance_L (PNode, H) 
                              end;
                              Dispose (Q);
                     end
                     else {PNode^.Count > 1}; {Имеются дубликаты}
                           PNode^.Count := PNode^.Count – 1;
 
end; {Delete}

 if H then