generar palabras en pascal:

[tumbadero]

Hola a todos:
tengo una duda como puedo generar palabras en pascal dado una cadena de caracteres..
Es deci, tengo uuna cadena: cadena = "abc" y quiero obteber esto y guardarlo en un fichero si es posible:

En la primera iteracion:a,b,c
En la segunda iteracion:aa,ab,ac,ba,bb,bc,ca,cb,cc
En la tercera:aaa,aab,aba,abb, y asi sucesivamente...

1 2 3 4 5 etc

a aa
b ab
c ac
ba
bb
bc
ca
cb
cc
Por favor si alguien sabe contestar por aqui o a:gacita@tesla.cujae.edu.cu
gracias...

[[duilioisola]]

Código Delphi [-]
function CreaCadenaRecursiva(Cadena, Resultado : string; Posicion, Longitud, MaxLongitud : integer) : string;
var 
   f : TextFile;
   s : string;
begin
   if (Longitud > MaxLongitud) then 
      exit;
   if (Posicion = Longitud) then 
      CreaCadenaRecursiva(Cadena, Resultado,1,Longitud+1, MaxLongitud);
   else
   begin
      Resultado := Resultado + Cadena[Posicion];
      AssignFile(f,'palabras.txt');
      Append(f);
      writeln(f,Resultado);
      CloseFile(f);
      CreaCadenaRecursiva(Cadena, Resultado,Posicion+1,Longitud, MaxLongitud);
   end;
end;

Deberás llamar a esta función así:

Código Delphi [-]
function CreaCadenaRecursiva('abc', r ,1 ,1 , 5)

No la he probado, por lo que puede que contenga errores.