dúvida sobre validação de string..

[Victor.main]

Olá a todos, sou iniciante em pascal aí estou fazendo um programa tipo um jogo pedra papel tesoura e então eis que me surge um problema: validação de entradas tipo string.
Coloquei um while para repetir a frase 'digite uma jogada válida' toda vez que o usuario digitar uma entrada invalida. Mas ai mesmo com a entrada estando correta o programa cai no while e fica no loop...
Meu codigo ta assim:
 

Readln (jog1);While (jog1<>'pedra') or (jog1 <> 'papel') or (jog1 <> 'tesoura') doBeginWriteln ('Digite algo válido:');Readln (jog1);End;

[LNW]

@Victor.main

 

 

Para entrar no laço, jog1 precisa ser diferente de 'pedra' E 'papel' E 'tesoura' para que a expressão lógica seja avaliada como verdadeira:

While (jog1<>'pedra') and (jog1 <> 'papel') and (jog1 <> 'tesoura')

LNW

[Victor.main]

Putz não tinha percebido isso... Hehe valeu mesmo