Pascal/Turbo Pascal - Eliminar Arbol Binario

{Algo así}

program arboles;

 uses

    crt;

  type

     puntarbol = ^regarbol;

     regarbol = record

              dato : integer;

              der, izq : puntarbol;

            end;

   var

     elarbol : puntarbol;

     h : integer;

     memoria : word;

   procedure ponerdato(reg : puntarbol);

   begin

      if reg <> nil then

      begin

        ponerdato(reg^.izq);

        write(' ',reg^.dato);

        ponerdato(reg^.der);

      end;

    end;

  procedure insertar(var p: puntarbol; v : integer);

  begin

     if p = nil then

     begin

        new(p);

        p^.dato := v;

        p^.izq := nil;

        p^.der := nil;

     end

   else

      if p^.dato > v then

       insertar(p^.izq,v)

    else

       insertar(p^.der,v)

  end;

  procedure anula_arbol(p : puntarbol);

  begin

    if p <> nil then

    begin

      anula_arbol(p^.izq);

      anula_arbol(p^.der);

      dispose(p);

    end;

  end;

  begin

     clrscr;

     writeln('  Memoria inicio   = ',memavail);

     elarbol := nil;

     writeln('  Carga datos');

     for h := 1 to 28 do

     insertar(elarbol,h);

     ponerdato(elarbol);

     writeln;

     writeln('  Memoria Medio    = ',memavail);

     writeln('  Livera datos');

     anula_arbol(elarbol);

     writeln('  Memoria al Final = ',memavail);

     readkey;

  end.