Untitled

procedure menor15853 (a:arbol);
begin
    if (a <> nil)then
    begin
        if (a^.dato.legajo < 15853) then
        begin
            writeln('nombre de alumno con numero de legajo menor a 15853: ',a^.dato.nombre);
            writeln('apellido de alumno con numero de legajo menor a 15853: ',a^.dato.apellido);
            menor15853(a^.HD)
        end;
        menor15853(a^.HI);
    end;
end;