Есть н цветов разных видов. Составьте все возможные сочетания букетов из всех этих цветов. Количество цветов и их названия вводит пользователь

var
    n, i, j :longint;
    s :array[0 .. 1000] of string;
begin
    assign(input, 'in');
    reset(input);
    assign(output, 'out');
    rewrite(output);
 
    readln(n);
 
    for i := 0 to n - 1 do 
        readln(s[i]);
 
    for i := 1 to (1 shl n) - 1 do begin
        for j := 0 to n - 1 do
            if ((i and (1 shl j)) > 0) then
                write(s[j], ' ');
        writeln;
    end;
end.