I understood what u said about manipulating the data, but now i have a new problem!
That is really stupid!!
In my case(3) i have this:
case(3) ! Insere novo registo
write(*,*) "Introduza as caracteristicas do novo mineral - Numero, nome, cor, brilho e dureza!"
read(*,*) newmineral%...