Pascal/Turbo Pascal - Otra ayuda!!!!!!!!sobre repeat

Saludos espero que me ayuden, abajo esta el codigo del programa que estoy haciendo, el problema es el siguiente..

El usuario debe introducir un 1 o un 2 para poder avansar, entonces le puse un repeat para que si pone un valor difernte a 1 y 2 me ponga el error y que los ponga de nuevo, lo que pasa es que los REPEAT terminan con un UNTIL, y ahi es el problema que si pongo que repita hasta(until) y pongo until estudios=1 or estudios=2; me da error... a ver si pueden ayudarme

begin
clrscr; {borrado de la pantalla}
repeat
write ('Introduzca 1 si es de pregrado, introduzca 2 si es de postgrado: ');
read (estudios);
if estudios<1
then
writeln ('Opcion no valida, vuelva a introducir un valor')
else if estudios>2
then
writeln ('Opcion no valida, vuelva a introducir un valor');
until estudios=1 or estudios=2;

ponle parentesis así
until (estudios=1) or (estudios=2);

Otra sujerencia:
repeat
write('Su opción: ');
ReadLn(Opcion);
if not (Opcion in [1,2]) then
WriteLn('Opción no válida');
Until Opcion in [1,2];
Suponiendo que Opción sea de tipo integer, word o byte.