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]
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
end;
Saludos.