Перебор всех возможных вариантов

[phenix]

Вот задача:

Серёжка недавно нашел магичесике кубики. N штук с записанными на них какими-то различными числами.
Сначала он решил сгруппировать некоторые кубики так, чтобы в сумме было 2010. С этой задачей он справился легко, но его брат Руслан предложил ему решить кое-что посложнее, а именно:
подсчитать количество различных способов, которыми можно собрать некоторую сумму M при помощи его кубиков.
Формат ввода:
В первой строке находится целые числа N и M.
Далее следует N чисел:
A1
...
AN
Ai – число написанное на кубике.
1<=N<=20, 1<=M<=10^18 ,1<=Ai<=10^18
Формат вывода:
Выведите количество способов.

Вот моё решение

var
  a : array[1..20] of integer;
  b : array[1..20] of boolean;
  i,j,n,m,s,sum,sum1,StepNumber,k,c : integer;
  
begin
  readln(n,m);
  for i:=1 to n do readln(a[i]);
  for i:=1 to n-1 do
    for j:=i+1 to n do
      begin
        if a[i]>a[j]
          then
            begin
              s:=a[i];
              a[i]:=a[j];
              a[j]:=s
            end;
      end;
  i:=1;
  while (a[i]<=m) and (i<n) do i:=i+1;
  s:=i;
  sum:=1;
  for i:=1 to s do sum:=sum*2;
  sum:=sum-1;
  StepNumber:=0;
  for i:=1 to sum do
    begin
      k:=i;
      c:=0;
      sum1:=0;
      while k<>0 do
        begin
          Inc(c);
          if k mod 2 =1
            then 
              begin
                k:=k div 2;
                b[c]:=true;
              end
            else
              begin
                k:=k div 2;
                b[c]:=false;
              end;
        end;
      for j:=1 to c do
        if b[j]
          then sum1:=sum1+a[j];
      if sum1=m
        then Inc(StepNumber);
    end;
  writeln(StepNumber);
end.

Помогите решить проблему, при тестировании не проходит тесты, когда m равняется 191592713146418 и более выскакивает ошибка. Подскажите плиз правильное решение или идею как решить.

[unbanned]

скорее всего это не ошибка в коде, просто число в тип integer не входит... попробуй в описании использовать вместо integer, longint (или даже int64).

[phenix]

Не подходит. Всё равно выскакивает ошибка при значении m 191592713146418

[unbanned]

Сообщение от phenix

var
  a : array[1..20] of int64;
 .......
  i,j,n,m,s,sum,sum1,StepNumber,k,c : int64;
  
begin
.....
end.

а так? у меня значение вводиться допустим...