Aide de faire 1 menu en pascal

program Maths;

procedure Addition;
begin 
writeln('CALCUL DE L''ADDITION');
end;

procedure Soustraction;
begin
writeln('CALCUL DE LA SOUSTRACTION');
end;

procedure Multiplication;
begin 
writeln('CALCUL DE LA MULTIPLICATION');
end;

procedure Menu;
var b:byte; boucle:boolean;
begin
writeln('******************************');
writeln('* PROGRAMME DE MATHEMATIQUES *');
writeln('******************************');
writeln;
writeln('1. ADDITION');
writeln('2. SOUSTRACTION');
writeln('3. MULTIPLICATION');
writeln;
boucle:=true;
while boucle do
      begin
      boucle:=false;
      write('Choix : ');
      readln(b);
      writeln;
      case b of
           1:Addition;
           2:Soustraction;
           3:Multiplication;
           else boucle:=true;
           end;
      end;
end;

begin
Menu;
readln;
end.