Halmaz típus - példaprogram, menü

...
WriteLn('1: Adatfelvitel');
WriteLn('2: Módosítás');
WriteLn('3: Listázás');
WriteLn('4: Kilépés');
WriteLn('Válasszon!);
repeat 
  Valasz := ReadKey 
until Valasz in ['1'..'4'];
case Valasz of
  '1': ...;
  '2': ...;
  '3': ...;
...