Pascal/Turbo Pascal - Estructura Repeat-Until

Buenas y saludos a todos.
Apenas estoy aprendiendo a programar y me ha surgido una duda con la estructura repeat-until.
Escribí el siguiente programa:



El problema está en que al correr el programa, me pide que ingrese el número y me da el día de la semana tal como se lo pido, pero luego no me pregunta si quiero continuar, sino que simplemente se repite y me vuelve a pedir un número, así:



Es decir, no me deja decirle si quiero continuar o no, simplemente se repite indefinidamente.

El error está en que usas read para leer variables en lugar de readln. Cuando haces eso no vacias el buffer del teclado y por eso no te da opción a leer la variable r. Yo te recomendaría que utilizaras read sólo para leer ficheros de tipo registro y ReadLn para ficheros de texto y variables.

Mil gracias! De ahora en adelante aplicaré tu consejo. Por sencillo que haya sido me has ayudado mucho!

que biblioteca usaste para declarar repeat y until

La unidad CRT.