cargar arbol ordenado

//carga un arbol de enteros ordenados

procedure InsertarOrdenado(var Arbol: PuntArbol; Nodo: PuntArbol);
begin
	If (Arbol = nil) then
		Arbol:= Nodo
	else If (Arbol^.Numero > Nodo^.Numero) then
		InsertarOrdenado(Arbol^.Menores, Nodo)
		else
			InsertarOrdenado(Arbol^.Mayores, Nodo);
end;

procedure CargarArbol(var Arbol: PuntArbol);
var
	Nodito: PuntArbol;
	Letra: char;
	Seguir: boolean;
begin
	Seguir:= true;
	While Seguir do Begin
		Write('Quiere seguir ingresando alumnos? Y~N: ');
		Readln(Letra);
		If (Letra = 'Y') or (Letra = 'y') then Begin
			Seguir:= true;
			CrearNodo(Nodito);
			InsertarOrdenado(Arbol, Nodito);
		end
		else
			Seguir:= false;
	end;
end;