Бинарные деревья

[Влдислаав3911]

Помогите пожалуйста. Не могу понять... Мне нужно подсчитать колличество листьев бинарного дерева. Я хотел сделать это при обходе этого дерева.
У меня есть процедура вывода дерева,не знаю как в нее вставить условие :
if (root^.left=nil)and(root^.right=nil )then
s:=s+1;

сама процедура:
procedure PrintTree(roottree; n:byte;
var s:integer);
begin {PrintTree}
{if (root^.left=nil)and(root^.right=nil )then
s:=s+1; }
if root<>nil then
begin
PrintTree(root^.left,n+1,s);
writeln(root^.info:2*n);
PrintTree(root^.right,n+1,s);

end;
end;

[Greblin]

Ну и вставляешь его просто

procedure PrintTree(root: tree; n: byte; var s: integer);
begin
if root<>nil then
  begin
  if (root^.left = nil) and (root^.right = nil) then
    s:=s+1;
  PrintTree(root^.left,n+1,s); 
  writeln(root^.info:2*n);
  PrintTree(root^.right,n+1,s);
  end;
end;

[Влдислаав3911]

Спасиб. Прав А.Васильев .
Я вроде втыкал и туда и сюда, не получалось)). Очень благодарен.