SoloCodigo

bueno, al final conseguí hacer la combinacion, el codigo utilizado es el siguiente, es evidente que tengo una unidad para la gestion de las listas:


procedure Combinacion(M,N:integer; coleccion : tlista; var comb:tlista);
..var
....letra,aux : tlista;
..procedure Combina(pos : integer);
....var i:integer;
......s,pal:tinfo;
....begin
......pal:='';
......if pos > M then
........begin
..........aux:=letra;
..........while aux<>nil do
............begin
..............pal:=pal+(aux^.info);
..............aux:=aux^.sig;
............end;
..........InsertarAlFinal(comb, pal);
..........borrarultimonodo(letra);
........end
......else
........begin
..........for i := 1 to N do
............begin
..............obtenerinfopos(coleccion, s, i);
..............Insertar(letra,s,pos);
..............Combina(pos + 1);
............end;
..........borrarultimonodo(letra);
........end
....end;
..begin
......crear(letra);
......Combina(1);
..end;

Se que lo tengo que hacer recursivamente, pero estoy muuuuuuuuuuy pez en recursividad y no sé como hacerlo...

no encuentro por ahí nada parecido que me pueda orientar, asique solicito ayuda!!!!!!!
Voy a describir mi programa un poco mas a fondo. Tengo un programa que me lee de un fichero las letras que estén almacenadas y me las almacena en una lista, y ahora tengo que coger estas letras que tenga almacenadas en la lista y escribir en otra lista todas las posibles combinaciones de letras que se pudieran crear con estas letras. El tamaño de las letras que tengo que crear va desde 1 (es decir, enumerar todas las letras que tengo) hasta N, siendo N un numero que introduzco como variable a la funcion. Todas las letras se pueden repetir el numero de veces que haga falta.

P.D:El programa lo estoy codificando en PASCAL/Delphi

Muchas gracias