Case символьный выбор, Case символьный выбор Опции

[Pirate]

begin
 ch:=readkey;
 case ch of
 chr(49):
 begin
 clrscr;
 create_new_base_file;
 end;
 chr(50):
 begin
 clrscr;
 output_all_records;
 end;
 chr(51):
 begin
 clrscr;
 otcet;
 end;
 chr(52):begin
 clrscr;
 add_records_in_the_end;
 end;
 chr(53):ch:=chr(27);
end;
writeln;
writeln('---------------------------Executed. <ENTER>----------------');
   readln;
 clrscr;
 end;
until (ch=chr(27));
end.

А как сделать чтобы символы кроме тех что есть в Case не выводились?
Чтобы выборка производилась по тем символам которые я указал