Генерация всех возможных комбинаций из элементов массива

const Size=3;
type TWordVar=array[1..Size]of string;
     TReadyWords=array of string;
     TUse=array[1..Size]of integer;
     
procedure SetReadyWords(n:integer;WordVar:TWordVar;var ReadyWords:TReadyWords;var Use:TUse);
var i,k,sz:integer;
begin
  for i:=0 to Size do  
  begin
    k:=1;
    while k<n do
    begin
      if Use[k]=i then break;
      k:=k+1;
    end;
    if k=n then
    begin
      Use[n]:=i;
      if(n<Size)and(i<>0)then SetReadyWords(n+1,WordVar,ReadyWords,Use)
      else
      begin
        k:=1;
        while k<=Size do
        begin
          if Use[k]>0 then break;
          k:=k+1;
        end;
        if k<=Size then
        begin
          sz:=Length(ReadyWords);
          SetLength(ReadyWords,sz+1);
          ReadyWords[sz]:='';
          for k:=1 to Size do
            if Use[k]>0 then 
              ReadyWords[sz]:=ReadyWords[sz]+WordVar[Use[k]];
        end;
      end;
      Use[n]:=0;
    end;
  end;
end;
 
var WordVar:TWordVar:=('a','b','c');
    ReadyWords:TReadyWords;
    Use:TUse;
    i:integer;
begin
  for i:=1 to Size do Use[i]:=0;
  SetReadyWords(1,WordVar,ReadyWords,Use);
  for i:=0 to Length(ReadyWords)-1 do
    WriteLn(ReadyWords[i]);
  ReadLn;
end;

const Size=4;
type TWordVar=array[1..Size]of string;
     TReadyWords=array of string;
     TUse=array[1..Size]of integer;
     
procedure SetReadyWords(n:integer;WordVar:TWordVar;var ReadyWords:TReadyWords;var Use:TUse;nw:integer);
var i,k,sz:integer;
begin
  for i:=0 to Size do  
  begin
    k:=1;
    while k<n do
    begin
      if Use[k]=i then break;
      k:=k+1;
    end;
    if k=n then
    begin
      Use[n]:=i;
      if(n<Size)and(n<nw)and(i<>0)then SetReadyWords(n+1,WordVar,ReadyWords,Use,nw)
      else
      begin
        k:=1;
        while k<=Size do
        begin
          if Use[k]>0 then break;
          k:=k+1;
        end;
        if k<=Size then
        begin
          sz:=Length(ReadyWords);
          SetLength(ReadyWords,sz+1);
          ReadyWords[sz]:='';
          for k:=1 to Size do
            if Use[k]>0 then 
              ReadyWords[sz]:=ReadyWords[sz]+WordVar[Use[k]];
        end;
      end;
      Use[n]:=0;
    end;
  end;
end;
 
var WordVar:TWordVar:=('a','b','c','d');
    ReadyWords:TReadyWords;
    Use:TUse;
    i,nw:integer;
begin
  Write('Слов: ');
  ReadLn(nw);
  for i:=1 to Size do Use[i]:=0;
  SetReadyWords(1,WordVar,ReadyWords,Use,nw);
  for i:=0 to Length(ReadyWords)-1 do
    WriteLn(ReadyWords[i]);
  ReadLn;
end.