Сочетания и Размещения

[swillrocker]

Turbo Pascal
Просьба помочь именно с моим кодом(что-то добавить,исправить,удалить). Свой писать не нужно.

Выводимые данные повторяются по два раза или более...
Помогите исправить:
Размещения(A из n по k)

	program razm;
const n=4;k=2;
var a:array[1..n] of integer;
      i:integer;
 
procedure generate (l,r:integer);
var i,v:integer;
begin
  if (l=r) then
   begin
     for i:=1 to k do write(a[i],' ');
     writeln;
   end
     else
      begin
        for i:=l to r do
         begin
           v:=a[l]; a[l]:=a[i]; a[i]:=v;
           generate(l+1,r);
           v:=a[l]; a[l]:=a[i]; a[i]:=v;
         end;
      end;
end;
 
begin
  for i:=1 to n do
  a[i]:=i;
  generate(1, n);
readln;
end.

Сочетания(C из n по k)
Изменить код написанный выше так, чтобы генерировались сочетания.

[Rin]

ТЕБЕ СЮДА!!