Меню в паскале.Как сделать выход?

[isJoga]

В общем задали пару задачек, я их решила, но к ним нужно сделать меню
1.Презентация
2.задача1
3.задача2
4.выход
все это я сделала, но не могу сделать выход, там должно быть "вы действительно хотите выйти" ну и варианты "N"(попадаем в главное меню) "Y" (выходим)
вот код(он немного сокращен, просто сами задачи не написанны)

program super_menu;
uses crt;
var
menu, exit:char;
label 01,02,03,10,20,30,40;

begin
  01: clrscr;
 writeln ('Menu');
 writeln('1.Prezentation');
 Writeln('2.Zada4a1');
 Writeln('3.Zada4a2');
 writeln('4.Exit');

 02:menu:=readkey;
 case menu of
 '1' : goto  10;
 '2' : goto  20;
 '3' : goto  30;
 '4' : goto  40;
 else
 goto 02;



 10:clrscr;
  write('isJOga PREZZENTATION');
   readkey;
    goto 01;

 20:clrscr;
  write('super zada4a');
   readkey;
    goto 01;

 30:clrscr;
  write('BTOPA9 super zada4a');
   readkey;
    goto 01;

 40:clrscr;
   writeln('exit');
    writeln('B6I DEUCTBUTE/\6HO XOTUTE BUUTU?');
     writeln('D/\9 BUXODA HA>|<MI "Y" DL9 BO3BPATA "N"');
     readkey;

03:exit:=readkey;
 case menu of

 'Y','y': goto  {???}
 'N','n': goto 01
   else
   goto 01;


end;
 end;
 end.;
 end.;

[isJoga]

в чем ошибка?что исправить?

[Alex Cones]

метки даром не нужны:

While N <> 4 do
 Begin
  ClrScr;
  Writeln ( ... menu ... );
  Writeln ('4 - exit')
  Case N of
  1: Procedure 1
  2: Procedure 2
  3: Procedure 3
  End;
End;

[isJoga]

спасибо)
а если все таки с помощью меток(просто так требуют) то как?

[Alex Cones]

Вместо While обрабатывайте условие:

If N <> 4 Then goto labelka;