Бинарные деревья поиска(Паскаль)

[shadezx]

Нужно подсчитать количество листьев(терминальных элементов) в дереве
вот функция но выдает слишком большое число

function count(root:pnode):integer;
var Cnt,cL,cR:integer;
begin
if (root=nil)then begin
  count:=0;
  end;
  if  (root^.Left = nil) and (root^.Right = nil)
  then  Inc(Cnt);
  Cnt:=Cnt+count(root^.Left);
  Cnt:=Cnt+count(root^.Right);
  count:=Cnt;

подскажите как исправить ошибку?

[Serge_Bliznykov]

так, в порядке предположения (не проверял!!):

function count(root:pnode):integer;
var cnt : integer;
begin
  cnt := 0;
  if (root=nil) then begin
    count:=0;
  end
  else begin
     if  (root^.Left = nil) and (root^.Right = nil)
        then  Inc(cnt);
     cnt := cnt + count(root^.Left);
     cnt := cnt + count(root^.Right);
     count:=Cnt;
  end;
end;

[shadezx]

Сообщение от Serge_Bliznykov

так, в порядке предположения (не проверял!!):

function count(root:pnode):integer;
var cnt : integer;
begin
  cnt := 0;
  if (root=nil) then begin
    count:=0;
  end
  else begin
     if  (root^.Left = nil) and (root^.Right = nil)
        then  Inc(cnt);
     cnt := cnt + count(root^.Left);
     cnt := cnt + count(root^.Right);
     count:=Cnt;
  end;
end;

благодарю,вот что значит забыл обнулить переменную вначале)