[lkz_07]

Прошу помощи:
Как из строки типа:
[A-C][EF][K-PSZ]
получить список "слов":
AEK
AEL
AEM
AEO
AEP
AES
AEZ
AFK
AFL
AFM
AFO
AFP
AFS
AFZ
BEK
BEL
BEM
и так далее?


Я создал массив и заполнил его алфавитом:

Код:

i := 0;
for c := 'A' to 'Z' do begin
i := i+1;
spAlfawEN[i] := c;     end;

Потом делал циклами с поиском, в итоге получалась пирамида циклов... , в общем так программа не работает!!!