задача о сочетаниях

[любаша]

ребята,привет)))вообщем нужно найти сочетания(без повторений) и их количество для произвольного множества.нашла хороший пример,НО не могу понять почему сочетания выводятся в порядке убывания???(т.е. сначала 33,32..02,01) и еще этот пример на сочетания с повторениями,как убрать из примера повторения????
может кто то разберется!!заранее спасибо
вот сама прога


const
alphabet : string[10] = '0123456789';
var
b : array [1..100] of byte;
N,i,j,k,M,N1 : byte;
z:longint;
Procedure SwapB(i,k:byte);
var x : byte;
begin
x:=B[i]; B[i]:=B[k]; B[k]:=x;
end;
Procedure WriteB;
var i,j : byte;
begin
Inc(Z); Write (Z:3,' : ');
j:=1;
for i:=1 to N do
if b[i]=0
then Inc(j)
else write(alphabet[j]);
writeln;
readln;
end;
begin
readln(N1,M); N:=N1-1+M;
for i:=1 to n1-1 do b[i]:=0;
for i:=n1 to n1+m-1 do b[i]:=1;
WriteB;
while (true) do
begin
i:=N;
while (i>0) and (B[i]>=B[i+1]) do i:=i-1;
if i=0 then exit;
for j:=i+1 to N do
if (B[j]>B[i]) then K:=j;
SwapB(i,k);
for j:=i+1 to (i+ ((N+1-i) div 2)) do
SwapB(j,N+i+1-j);
WriteB;
end;
end.

[RUSt88]

чот я не оч задачу понял, что нужно выдать вам на выходе

есть массив с элементами произвольными, так? например, {0 1 2 3 4 5}
нужно вывести все сочетания цифр без повторов этих сочетаний, т.е. 23 и 32 - это одно сочетание и, соответственно, 32 уже не выводится, правильно?

а каков размер сочетаний? 2 символа, либо указывается?

если, я все правильно понял, то здесь нужно просто идти от начала массива и перебирать все символы, так дойдете до конца массива, перебрав все сочетания без повторов

могу выполнить это все за вознаграждение на любом из языков, указанных ниже