Деревья

[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
    x:=-10+Random(21); write(x:5,'   ');
    Ins(T,x);
  end;
END;

var Der:U;
    S:BT;
    i:integer;

BEGIN
  { TODO -oUser -cConsole Main : Insert code here }
  InsDer(Der);
  writeln;
  PrintTree(Der);


  while der^.L<>nil do
    der:=der^.L; //НО ЭТО НЕПРАВИЛЬНО

  writeln(der^.Inf);

  readln;
END.

[Chudo4258]

Подскажите хотя бы идею.
Сделал еще вот так:

while der<>nil do
    if der^.L<>nil then der:=der^.L
                   else if der^.R<>nil then der:=der^.R
                                       else writeln(der^.Inf); der:=nil;

но тоже ничего не получается.

Рекурсию желательно не использовать, но на "худой момент" можно и с рекурсией.

Подскажите верно так будет или нет, а то при моих тестах результат вроде бы правильный, а что преподу взбредет в голову не знаю.

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.

[Stilet]

Я не очень люблю кучи...
Твое "дерево" я правильно понимаю что это односвязный список?
Просто поэлементно пройтись?

[Chudo4258]

Твое "дерево" я правильно понимаю что это односвязный список?
Просто поэлементно пройтись?

Почему односвязный список, если:

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