Create ejer6 longuitud fija (Programa Principal).pas