Añadir contacto funcionando con escritura de archivo contacto.pp