haz lo que dice Efirenet, aparte que yo lo haría todo en la misma función y la función leer_cadena la quitaría.

Coke.