Pascal - Problema "repeat...until"

Program Esempio;
var A:integer;
B,C:char
(*...*)
Repeat (*Questo è il repeat A*)
Writeln('Benvenuti nel menù');
delay(5000);
Clrscr;
Writeln('Cosa vuoi fare?');
delay(5000);
clrscr;
repeat (*Questo è il repeat B*)
Writeln('Azione numero 1');
Writeln('Azione numero 2');
Writeln('Chiusura (N° 3)');
Read(A);
Case A of
1:
Begin
Clrscr;
Writeln('Continuare? Y/N');
Readln(B);
case B of:
Y:
(*...*)
N: Until readln; (*Questa è la chiusura del repeat B*)
End;
2:
(*...*);
3: 
Begin 
Writeln('vuoi chiudere veramente? Y/N');
Read(C)
case c of:
Y:
Begin
writeln('Arresto del sistema in corso...');
Delay(10000);
Clrscr;
Until readln; (*Questa è la chiusura del repeat A*)
End;
N: (*...*)