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

[Elena115]

помогите к этой программе добавить что бы в конце выводило минимальный элемент
u

ses crt;
type
   ptr=^Node;
   Node=record
   data:integer;
   left,right:ptr;
   end;
var
   root:ptr; b,x:integer;

Procedure Create(var tree:ptr;a:integer);
var p:ptr;
begin
     if a>tree^.data then
       begin
       if tree^.right=nil then
                         begin
                         new(p);p^.data:=a;
                          p^.left:=nil;
                          p^.right:=nil;
                          tree^.right:=p;
                         end
                       else Create(tree^.right,a)
                       end
         else
               begin
       if tree^.left=nil then
                         begin
                         new(p);p^.data:=a;
                          p^.left:=nil;
                          p^.right:=nil;
                          tree^.left:=p;
                         end
                       else Create(tree^.left,a)
     end;
end;

procedure readtree(var tree:ptr);
begin
        if tree<>nil then
            begin
              readtree(tree^.left);
              write(tree^.data:5);
              readtree(tree^.right);
           end;
end;
Begin
 clrscr;
 writeln('Input numbers');
 read(b);
   New(root);
   root^.data:=b;
   root^.right:=nil;
   root^.left:=nil;
   read(b);

   while b<>0 do
     begin
      Create(root,b);
      read(b);
     end;
     writeln;
 writeln('Created tree');
 readtree(root);
 writeln;
 End.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[ZX Spectrum-128]

http://3ys.ru/osnovnye-kontseptsii-y...e-derevya.html