[Respawn]

pesi. после обработки "напильником", получилось:

Код:

const
  bk = 'ABCDE';
var
  I1, I2, I3, I4: Integer;
begin
  Memo1.Text:= bk;
  for I1:=1 to 5 do
    Memo1.Lines.Add(bk[I1]);
  for I1:= 1 to 5 do
  for I2:= 2 to 5 do
    begin
      if (I1<>I2) and (I1<I2) then
        Memo1.Lines.Add(bk[I1]+bk[I2]);
        for I3:= 3 to 5 do
          begin
          if (I1<>I2) and (I2<>I3) and (I1<I2) and (I2<I3) then
          Memo1.Lines.Add(bk[I1]+bk[I2]+bk[I3]);
            for I4 := 4 to 5 do
              if (I1<>I2) and (I2<>I3) and (I3<>I4) and (I1<I2) and (I2<I3) and (I3<I4) then
              Memo1.Lines.Add(bk[I1]+bk[I2]+bk[I3]+bk[I4])
          end;
    end;
end;

Код:

ABCDE
A
B
C
D
E
AB
ABC
ABCD
ABCE
ABD
ABDE
ABE
AC
ACD
ACDE
ACE
AD
ADE
AE
BC
BCD
BCDE
BCE
BD
BDE
BE
CD
CDE
CE
DE

Вроде все правильно, БОЛЬШОЕ Вам СПСИБО!!!!!!!!!!