проблема с repeat и until

[dimass68]

не могу понять как исправить ошибку с until
выдается ошибка 42

Program p1;
        Uses CRT, Mod_BD, Mod_kurs;
Var 
proga:byte;
    	x:TM_rec;
    	w:win;
    	ww:win2;
    	
BEGIN
repeat
clrscr;
w.init(60,1,80,9,7);
w.makewin;
w.Menu(40,3,60,17,proga);
                        case proga of
                        	1:begin
                        	Gotoxy(2,10);
                        	w.init(1,1,58,25,blue);
                       	w.makewin;
                        	w.input(X);;
                        	readln;
                        	end;

                        	2:begin
                        	Gotoxy(2,10);
                        	ww.init(1,1,58,25,blue,'stroka');
                        	ww.makewin;
                        	ww.output;
                        	readln;
                        	end;

until proga=5;
textbackground(0);
ClrScr;
END.

[Hacker19_90]

Program p1;
Uses CRT, Mod_BD, Mod_kurs;
Var 
proga:byte;
x:TM_rec;
w:win;
ww:win2;

BEGIN
repeat
clrscr;
w.init(60,1,80,9,7);
w.makewin;
w.Menu(40,3,60,17,proga);
case proga of
1:begin
Gotoxy(2,10);
w.init(1,1,58,25,blue);
w.makewin;
w.input(X);;
readln;
end;

2:begin
Gotoxy(2,10);
ww.init(1,1,58,25,blue,'stroka');
ww.makewin;
ww.output;
readln;
end;




end;
until proga=5;
textbackground(0);
ClrScr;
END.

case не закрыли!

[dimass68]

благодарю!