kombinace [Programování]

 
procedure kombinace(zCeho: string; kolik: integer; prefix: string);
var
  bezPrvniho: string;
begin
  if kolik = 0 then begin
    writeln(prefix);
  end else if (length(zCeho) = kolik) then begin
    writeln(prefix, zCeho);
  end else begin
    bezPrvniho := zCeho;
    delete(bezPrvniho, 1, 1);
    kombinace(bezPrvniho, kolik - 1, concat(prefix, zCeho[1]));
    kombinace(bezPrvniho, kolik, prefix);
  end;
end;
 
var
  zCeho: string;
  kolik: integer;
begin
  readln(zCeho);
  readln(kolik);
  kombinace(zCeho, kolik, '');
end.