Просьба помочь с задачкой:)

[ssnnqq]

есть два числа, к примеру: 1 и 2
нужно составить все варианты последовательностей этих чисел (10 чисел в строке/последовательности)
может не совсем понятно условие написал, вот пример начала:
1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 2
1 1 1 1 1 1 1 1 2 2
1 1 1 1 1 1 1 2 2 2
1 1 1 1 1 1 2 2 2 2
1 1 1 1 1 2 2 2 2 2
1 1 1 1 2 2 2 2 2 2
1 1 1 2 2 2 2 2 2 2
1 1 2 2 2 2 2 2 2 2
1 2 2 2 2 2 2 2 2 2
2 2 2 2 2 2 2 2 2 2
1 1 1 1 1 1 1 1 2 1
и так далее... и еще думаю что понятно что в ряду могут быть только одни числа.
я думаю, эта задача может быть решена в паскале, если же в какой-либо другой программе проще, то пожал-та скажите

[VIK_aka_TOR]

var i,j : integer;
a:array [1..10] of byte;
begin
for i:=1 to 10 do
  a[i] := 0;
  
for i:=0 to 1023 do
begin 
if i >= 512 then a[1] := 1 else a[1] := 0;
if (i mod 512) >= 256 then a[2] :=1 else a[2]:=0;
if (i mod 256) >= 128 then a[3] := 1 else a[3]:= 0;
if (i mod 128) >= 64 then a[4] := 1 else a[4]:= 0;
if (i mod 64) >= 32 then a[5] := 1 else a[5]:= 0;
if (i mod 32) >= 16 then a[6] := 1 else a[6]:= 0;
if (i mod 16) >= 8 then a[7] := 1 else a[7]:= 0;
if (i mod 8) >= 4 then a[8] := 1 else a[8]:= 0;
if (i mod 4) >= 2 then a[9] := 1 else a[9]:= 0;
if (i mod 2) >= 1 then a[10] := 1 else a[10]:= 0;
for j:=1 to 10 do
write(a[j] + 1,' ');
writeln;
end;

end.

как насчет такого вывода?... взятое на основании чисел в двоичной системе...
вот такой как вами указан был

var i,j,k,x,z : integer;
a:array [1..10] of byte;
begin
for i:=1 to 10 do
  a[i] := 0;
for j:=1 to 10 do
    write(a[j] + 1,' ');
    writeln;  
for z := 0 to 9 do
  for i:=1 to 10 do
  begin 
    for k:=1 to 10 do
      a[k] := 0; 
  for k :=10 - i + 1 to 10 - i +1 do
    begin
      for x :=k  to k +i - 1 do
        a[(x + z) mod 10 + 1]:= 1;
      for j:=1 to 10 do
        write(a[j] + 1,' ');
        writeln;
    end;
  end;
end.

[ssnnqq]

огромное спасибо насчет "помог - жми на весы" - весы не могу найти)