Из Pascal в С++

[Saruman!]

begin
  for i := 1 to k do
    A[i] := i; //Первое подмножество
  p := k;
  while p >= 1 do
  begin
    writeln(A[1],..., A[k]); //вывод очередного сочетания
    if A[k] = n then
      p := p - 1
    else
      p := k;
    if p >= 1 then
      for i := k downto p do
        A[i] := A[p] + i - p + 1;
  end;
end;

Помогите пожалуйста перевести в C++, искользуя iostream

Вывод должен быть таким

1 2 3 4
1 2 3 5
1 2 3 6
1 2 4 5
1 2 4 6
1 2 5 6
1 3 4 5
1 3 4 6
1 3 5 6
1 4 5 6
2 3 4 5
2 3 4 6
2 3 5 6
2 4 5 6
3 4 5 6

[Максай]

for( int i = 1; i <= k; i++ )
  A[i] = i; //Первое подмножество
p = k;
while( p >= 1 )
{
  for( int i = 1; i <= k; i++ ) std::cout << A[i]; std::cout << std::endl; //вывод очередного сочетания
  if( A[k] == n )
    p = p - 1;
  else
    p = k;
  if( p >= 1 )
    for( int i = k; i >= p; i-- )
      A[i] = A[p] + i - p + 1;
}