guiden

No hace falta que me respondais reduje el tamaño de los string para que el stack de Pascal no petara y funcionó, perdon por la redundancia