Алгоритм перестановок

[ArtGhost]

нужен алгоритм или код (паскаль/дельфи) выводящий все возможные перестановки ряда n из к элементов
например ряд n=3 (1,2,3), к=2 элементов
перестановки 12,13,23 (цифры не должны повторятся)

[Z1000000]

Выбрать все сочетания без повторений. Вот что тебе нужно, а не перестановки

http://forum.pascal.net.ru/index.php?showtopic=3777

program sochets;
var
  i, j, n, m: integer;
  a: array[0 .. 100] of integer;

{ процедура вывода текущего сочетания }
procedure use;
var i: integer;
begin
  writeln;
  for i:=1 to m do write(a[i]:3)
end;

begin
  write('ввод N и M: '); read(n, m);

  { формирование первого сочетания }
  for i:=0 to m do a[i]:=i;

  repeat
    use;
    i:=m;
    while a[i]=n-m+i do dec(i); { поиск элемента для изменения }
    inc(a[i]);
    for j:=i+1 to m do a[j]:=a[j-1]+1; { изменение правой части сочетания }
  until i=0;
end.

[Deni3]

Здравствуйте.
А есть этот же код на VBA?