Версия для печати темы

{проверка на равенство деревьев}
function equal(p1, p2 : Ttree) : boolean;
  begin
    if (p1=nil) and (p2=nil) then equal := true
    else
      if (p1<>nil) and (p2<>nil)
        then equal := (p1^.info= p2^.info) and equal(p1^.llink, p2^.llink)
                                 and equal(p1^.rlink, p2^.rlink)
      else equal := false
end;