Как заполнить массив всеми возможными комбинациями из 0 и 1?

program Zadanie47;
var
  a: array[1..1000,1..16] of Word; // Переменная в которой хранится массив вариантов чисел.
  b: array [1..16] of Word; // Переменная в которой хранится массив чисел при разложении числа на двоичные разряды.
 i,j,k,c: integer; // Промежуточные переменные для организации циклов.
 n: integer; // Переменная для хранения значения введенного числа.
 num: integer; // Промежуточная переменная для операций разложения числа на двоичные разряды.
begin
writeln('Введите число элементов массива.');
Readln(n);
for i:= 1 to n do
  begin
  num:= i;
  c:=0;
  repeat
    c:= c + 1;
    b[c]:= num mod 2;
    num:= num div 2;
  until num = 0;
 
  k:= 17;
  for j:= 1 to c do
    begin
    dec(k);
    a[i,k]:= b[j];
    end;
end;
 
for i:=1 to n do
  begin
  write(i:4,'  ');
  for j:= 17-c to 16 do
    write(a[i,j]);
  writeln;
  end;
Readln;
end.

var
  a : array [0..100] of Integer;
  i, n : Integer;
begin
  Write('Число разрядов до 100: '); ReadLn(n);
  for i := 0 to n-1 do
    a[i] := 0;
  repeat
    for i := n-1 downto 0 do Write(a[i]); WriteLn;
    i := 0; while a[i] = 1 do begin a[i] := 0; inc(i); end; a[i] := 1;
  until a[n] = 1;
end.