Pointer "Bäume"

[n00b_on_knees]

Hallo miteinander!

Ich soll einen Pointer Baum erzeugen, mit den Zahlen 123456789 und 529613847.
Außerdem brauche ich einen Code für dass Suchen einer Zahl. Das ganze soll mit dem Baum 2 geschehen (529613847), und mit den Werten 6 und 3.
Weiters, ist ein Code für dass Löschen einer Zahl erforderlich. Baum und Werte sind die selben.

Als Beispiel hier eine Funktion "Lesen", die einen Baum sortieren soll.

Code:

procedure lesen(a: DynamischesArray);
begin
  if a <> nil then
    begin
      read (a^.left);
      mmaus.Lines.Add(IntToStr(a^^.Daten));
      read(a^.right);
  end;
end;

Ich hoffe mir kann jemand behilflich sein.
Danke im Vorraus für eure Antworten.

Mit freundlichen Grüßen.