cargar arbol ordenado

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;