Durchhangeln - Baum - Letzer von Links

type
tRefBinBaum = ^tBinBaum;
tBinBaum = record
info : integer;
links : tRefBinBaum;
rechts : tRefBinBaum
end;


function sucheBlatt (inRefWurzel : tRefBinBaum) : tRefBinBaum;
var
zeiger : tRefBinBaum;

begin
  Zeiger := inRefWurzel
  if inRefWurzel^.links <> NIL then
  begin
    zeiger = sucheBlatt (inRefwurzel^.links)
  end;
  else
  begin
    if inRefWurzel^.links = nil then
      Writeln ('Ende erreicht');
   end;
   sucheBlatt := Zeiger;
end;