1112
11113
11121
11122
11123
11131
11123
11131
....и т.д.
....
23333
33333.end

unit Unit1;
interface
uses
     Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
     Dialogs, StdCtrls;
type
     TForm1 = class(TForm)
       Memo1: TMemo;
       Button1: TButton;
       Label1: TLabel;
       Edit1: TEdit;
       Edit2: TEdit;
       Label2: TLabel;
       Label3: TLabel;
       Count: TLabel;
       procedure Button1Click(Sender: TObject);
     private
       { Private declarations }
     public
       { Public declarations }
     end;
var
     Form1: TForm1;
implementation
{$R *.dfm}
var
    i,n:integer;
    x:array [1..9999] of integer;
    procedure printm;
    var
    i:integer;
    t: string;
    begin
    t:='';
     for i:=1 to n do
     t:=t+IntToStr(x[i]);
     Form1.Memo1.Lines.Add(t);
     Form1.Count.Caption:='Полученно: '+IntToStr(Form1.Memo1.Lines.Count)+' вариантов';
end;
procedure swap(var a,b:integer);
var v:integer;
begin
    v:=a;
    a:=b;
    b:=v
end;
procedure perest(k:integer);
var i:integer;
begin
     if k=n-1 then printm
     else
     for i:=k+1 to n do
     begin
       swap(x[k+1],x[i]);
       perest(k+1);
       swap(x[k+1],x[i]);
     end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
    Form1.Memo1.Text:='';
    n:=StrToInt(Form1.Edit1.Text);
    Form1.Button1.Enabled := False;
     for i:=1 to n do x[i]:=i;
      perest(0);
       Form1.Label1.Caption:=' Всего: '+IntToStr(Form1.Memo1.Lines.Count)+' комбинаций';
       ShowMessage('Просчет окончен!'+Char(13)+'Всего: '+IntToStr(Form1.Memo1.Lines.Count)+' комбинаций');
        Form1.Button1.Enabled := True;
        Form1.Count.Caption:='';
end;
end.

Loop "1" "3" "[y]"
    Loop "1" "3" "[w]"
     Loop "1" "3" "[e]"
      Loop "1" "3" "[r]"
       Loop "1" "3" "[t]"
         SetVar "[res]" "[res][y][w][e][r][t]"
       EndLoop
      EndLoop
     EndLoop
    EndLoop
EndLoop