Pascal/Turbo Pascal - Ayuda Repeat!

Hola!

Estoy usando un ciclo repeat, el cual para terminar tiene como condicion que cierta variable tome 6 valores posibles.

Escrito quedaria

Repeat

[Bloque]

Until (variable=a) or (variable=b) or (variable=c) or (variable=d) or (variable=e) or (variable=f);

Como ven, queda bastante largo.... hay alguna forma de escribirlo mas corto, asi como para el if esta el case of??

Quiero decir, por ejemplo, que quede

Until variable=a or b or c...etc

GRACIAS!

Sí, hay una forma más corta e igual de efectiva:

repeat

until variable in [valor1, valor2, valor3, valor4, valor5, valor6];