бинарное дерево(паскаль)

[tim47]

Задание. Множество целых чисел представить в виде бинарного дерева поиска и на основе этого представления упорядочить это множество по убыванию.

Что не правильно в этом коде?

uses crt;
type
 tnode = ^node;
 node = record
 data: integer;
 left: tnode;
 right: tnode;
end;


var a:integer; root:tnode;

function new_comp(r:tnode; data:integer):tnode;
begin
            if r=nil then
 begin
 new(r);
 r^.data:=data;
 r^.left:=nil;
 r^.right:=nil;
 end
 else
 begin
  if data <= r^.data then
  begin
  new_comp(r^.left,data);     end
  else
  begin
  new_comp(r^.right,data);end;
         end;
        end;


procedure destroy_tree(r:tnode);
BEGIN
                IF r<>NIL THEN
                    BEGIN
                        destroy_tree (r^.left);
                        destroy_tree (r^.right);
                        dispose(r);
                    END;
            END;



procedure show_tree2(r:tnode;i:integer);
var k:integer;
begin

if r<>nil then
begin
show_tree2(r^.right,i+1);
for k:=1 to i do Write('   ');
writeln(r^.data);
show_tree2(r^.left,i+1);
end;
end;

procedure Obhod (w:tnode);

begin
  if  w<>nil then
  begin
   Obhod (w^.right);
    writeln(w^.data);
    Obhod (w^.left); end;
end;


begin
root:=Nil;
repeat
 writeln('vvedite chislo: ');
 readln(a);
 root:=new_comp(root,a);
until a=0;
show_tree2(root,0);
writeln;
Obhod(root);
writeln;
writeln;
destroy_tree(root);
writeln;
writeln;
end.