SoloCodigo

Yo haría esto: un procedimiento que pase el nombre del país a mayúsculas (porque si no hay que comprobar si está en mayúsculas, minúsculas... y hay muchas posibilidades), y después pasas esa cadena a la función


{------------------------------------------------------------------------------------------------------------------------}


PROCEDURE pasaCadenaAmayusculas (VAR cadena : string);


VAR

  i : integer,


BEGIN

  FOR i := 1 TO length (cadena) DO

    cadena := upcase (cadena);

END;


{------------------------------------------------------------------------------------------------------------------------}

FUNCTION paisCorrecto (pais : string) : boolean;


VAR

  resultado : boolean;


BEGIN

  resultado := (pais = 'ARGENTINA') OR (pais = 'CHILE') OR (pais = 'URUGUAY') OR (pais = 'PARAGUAY');

{O mejor, si has estudiado conjuntos, haces un conjunto con los países posibles y sería tan fácil como

resultado := pais IN paisesPosibles;}

  paisCorrecto := resultado;

END;


{------------------------------------------------------------------------------------------------------------------------}

Nota: Los comentarios entre llaves sirven para varias líneas, lo digo por cómo has comentado tu CASE. También, si sabes que sólo falla esa función, pega aquí en el foro sólo esa función, nos facilita las cosas a los que vamos a leer el código :p

¿Por qué no te sirve readkey para tu juego? Explica un poco qué quieres hacer y te digo

delay (1000);
delay (1000);
delay (1000);

detiene la ejecución del programa el mismo tiempo que

delay (3000);

Hola, estoy buscando personas para formar un grupo de programación en lenguaje Pascal, y desarrollar varios proyectos, aprender juntos... Todo ello como hobbie, claro. Mejor si se tiene un nivel medio o avanzado del lenguaje

Preguntas, sugerencias, interesados... mandadme un e-mail (danifg85@hotmail.com) o responded por aquí

Un saludo!