Подсчитать сумму значений в бинарном дереве

  Type
       Pt = ^Node;
       Node = record
         inf: integer;//значения которые будем складывать
         num: boolean;// флаг ,false - ячейка не просмотрена,true - ячейка просмотрена
         prav, lev: Pt;// правая и левая ветки
      end;{End Node}
     Var Root: Pt;// корневище дерева 
 // ЗДЕСЬ ОПУСКАЮ ПРОЦЕДУРУ ЗАПОЛНЕНИЯ БИНАРНОГО ДЕРЕВА
   Function Sum(Root: Pt;var s: integer): integer;
     begin
        if Root <> nil then
                  begin
          if Root^.num = 0 then begin //если ячейка не просмотрена (Root^.num=0)
            s:= s + Root^.int;  //тогда суммируем ее значение к переменной s
            Root^.num:= True;  //а ячейке num вместо 0 присваиваем 1 
          end;{End if ..= 0}
           Sum(Root^.prav,s);
           Sum(Root^.lev,s);
        end;{End if .. <> nil}
           Sum:= s;
     end;{End Sum}
   var s: integer;
{********** ОСНОВНОЕ ТУЛОВИЩЕ ПРОГРАММНОЕ ************}
 BEGIN ClrScr;
   Root:= nil;
   Zapolnenie;//процедура заполнения дерева - опущена
   s:= 0;//инициируем значение начальной суммы 0
  Writeln('Сумма значений в бинарном дуболомище = ',Sum(Root,s));
 end.

function sum(root : Pt) : integer;
begin
  if root = nil then sum := 0
  else sum := root^.inf + sum(root^.prav) + sum(root^.lev);
end;