Комбинаторные алгоритмы: Выяснить, можно ли разделить элементы данного массива на два подмассива с одинаковой суммой элементов

var
   N           :integer;
   i           :integer;
   a           :array[1..1000] of integer;
   kol         :integer;
   check       :boolean;
   s1,s2       :integer;
begin
     Write('N = ');
     Read(N);
     check:=false;
     WriteLn('Ввод массива:');
     for i:=1 to N do
     begin
          Read(a[i]);
     end;
     for kol:=1 to N-1 do
     begin
          s1:=0; s2:=0;
          for i:=1 to kol do
          begin
               s1:=s1+a[i];
          end;
          for i:=kol+1 to N do
          begin
               s2:=s2+a[i];
          end;
          if s1=s2
          then
          begin
               check:=true;
               WriteLn('Первый массив:');
               for i:=1 to kol do
               begin
                    Write(a[i],' ');
               end;
               WriteLn;
               WriteLn('Второй массив:');
               for i:=kol+1 to N do
               begin
                    Write(a[i],' ');
               end;
               WriteLn;
          end;
     end;
     if check=false
     then
         Write('Разделить массив невозможно.');
end.