Комбинаторика Delphi

program Project2;
{$APPTYPE CONSOLE}
 
uses
  SysUtils, Windows, Math ;
 
function IntToBin(Value: Integer; Digits: Integer): string;
var
  i: Integer;
begin
  result := '';
  for i := 0 to Digits - 1 do
    begin
      if Value and (1 shl i) > 0 then
        result := '1' + result
      else
        result := '0' + result;
    end;
 
end;
 
var
  i, j, N: Integer;
 
begin
  SetConsoleOutputCP(1251);
  WriteLn('Введите число');
  Readln(N);
  for j := 0  to trunc(power(2,N))-1 do
    Writeln(IntToBin(j,N));
 
  ReadLn;
 
end.

program Project99;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var a:array[1..100] of integer;
      i,N,k,x:integer;
begin
readln(n);
for i:=0 to trunc(exp(n*ln(2)))-1 do
begin
fillchar (a,sizeof(a),0);
k:=i;
x:=n;
while k>0 do
begin
a[x]:=k mod 2;
k:=k div 2;
x:=x-1;
end;
for x:=1 to n do
write (a[x]);
writeln;
end;
end.

for i := trunc(exp(N * ln(2))) - 1 downto 0 do