Duda con arrays en programa para Soundex

[gerupc]

Hola,

estoy intentando hacer un programa relacionado con la codificación Soundex, pero me lio nada más empezar.

El problema es que tengo varios grupos, cada uno de ellos con una lista de caracteres. Por ejemplo: Grupo_0 caracteres : A,E,I,O,U...etc.

Entonces, lo que yo he hecho ha sido declarar cada grupo de la siguiente manera:

Código Delphi [-]
var
  Grupo_0: array[1..8] of char = ('A', 'E', 'I', 'O', 'U', 'H', 'W', 'Y'); // Mas los caracteres no alfabéticos (no sé como puedo ponerlos)
  Grupo_1: array[1..4] of char = ('B', 'F', 'P', 'V');
  Grupo_2: array[1..8] of char = ('C', 'G', 'J', 'K', 'Q', 'S', 'X', 'Z');
  Grupo_3: array[1..2] of char = ('D', 'T');
  Grupo_4: array[1] of char = ('L');
  Grupo_5: array[1..2] of char = ('M', 'N');
  Grupo_6: array[1] of char = ('R');

Pero claro, en lo que el progrma consiste es en que el usuario introduzca un nombre, por ejempl: SMITH, y el programa identifique cada caracter de la palabra con su grupo correspondiente, mostrando en lugar de SMITH:
25030, siendo cada uno de estos el numero de grupo al que pertenece el caracter que ocupa su misma poscion.

Entonces, la manera de la que yo he declarado las matrices...pues como que no consigo hacer nada. Y también, en el grupo 0 tengo que añadir los caracteres no alfabeticos y no sé como.

Si alguien me pudiese echar una mano y decirme cómo podría comenzar...se lo agradecería mucho.

Un saludo,

Geru.