if lista<>nil then
    if lista^.dni=dni then
        InsertarenArbol(lista^.materia,codmat,nota)
    else
        InsertarenLista(lista^.sig,dni,codmat,nota);
else
begin
    lista:=nuevonodolista(dni);
    InsertarenArbol(lista^.materia,codmat,nota);
end;