1:
2:
3:
4:
5:

type Pknoten = ^tbaum;
     tbaum = Record
             info: integer;
             left, right: Pknoten;
             END;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure hexler(B :Pknoten);
begin
if B <> Nil then begin
  if (B^.left = Nil) and (B^.right = Nil) then begin
    dispose(B);
  end
  else dispose(B);
end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure LoescheBlaetterVonBaum(var B: Pknoten);
begin
  if (B^.left = nil) and (B^.right = nil) then
  begin // Hat keine Nachkommen => sich selbst löschen
   Dispose(B);
   B := nil;
  end else
  begin // Hat Nachkommen => Befehl weitergeben
   if B^.left <> nil then LoescheBlaetterVonBaum(B^.left);
   if B^.right <> nil then LoescheBlaetterVonBaum(B^.right);
  end;
end;