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

[Chudo4258]

Вывести на экран элемент из самого левого листа непустого дерева (лист - вершина, из которой не выходит ни одной ветки).

program Project2;
{$APPTYPE CONSOLE}
uses
  SysUtils;

TYPE BT=integer;
     U = ^BinTree;
     BinTree = Record
         Inf : BT;
         L,R : U;
END;

PROCEDURE Ins(Var Tree : U; X : BT);      //вставляет элемент в дерево
Begin
   If Tree = Nil
   Then Begin 
	    New(Tree);
	    Tree^.L := Nil;
	    Tree^.R := Nil;
	    Tree^.Inf := x
	End
   Else If x < Tree^.inf
	Then Ins(Tree^.L, x)
	Else Ins(Tree^.R, x)
END;


PROCEDURE PrintTree(T:U);
Begin
 if T<>nil then
             begin
              PrintTree(T^.L);
              Writeln('  ', T^.inf:5);
              PrintTree(T^.R);
             end;
END;


PROCEDURE InsDer(var T:U);
var i,n:integer;
    x:BT;
Begin
  Randomize;
  Write('kol-vo el-tov v dereve: ');
  readln(n);
  for i:=1 to n do
  begin
    Write('El: '); Readln(x);
    //x:=-10+Random(21); write(x:5,'   ');
    Ins(T,x);
  end;
END;

PROCEDURE I(var der:U);
var vsp:U;
begin
  while true do
   begin
    if der^.L<>nil then begin vsp:=der; der:=der^.L; end;
    if (der^.L=nil)and(der^.R<>nil) then begin vsp:=der; der:=der^.R; end;
    if (der^.L=nil)and(der^.R=nil) then exit;
   end;
end;

var Der,vsp:U;
    e:BT;

BEGIN
  { TODO -oUser -cConsole Main : Insert code here }
  InsDer(Der);
  writeln;
  PrintTree(Der);
  I(der);
  writeln(der^.Inf);
  readln;
END.

[/QUOTE]