Duda con arrays en programa para Soundex

[jachguate]

Pues yo veo que si se podría, aunque se me hace mas natural usar conjuntos y no arreglos.

Código Delphi [-]
const
  Grupo_0: set of char = ['A', 'E', 'I', 'O', 'U', 'H', 'W', 'Y', #0..#64, #91..#96, #123..#255]
  //lo último #0..#64, etc.  son los caracteres "no alfabéticos", incluyendo los numéricos
  Grupo_1: set of char = ['B', 'F', 'P', 'V'];
  Grupo_2: set of char = ['C', 'G', 'J', 'K', 'Q', 'S', 'X', 'Z'];
  Grupo_3: set of char = ['D', 'T'];
  Grupo_4: set of char = ['L'];
  Grupo_5: set of char = ['M', 'N'];
  Grupo_6: set of char = ['R'];

begin
  //el resto ya es historia, ¿no?
end;

Saludos.