Изменения
→Специализация алгоритма для генерации следующего битового вектора
* Вместо 0 записываем 1 
* Дописываем минимально возможный хвост из нулей
     '''function''' nextVector(a:array[1..n] of byte):array[1..n] of byte; // n - длинна длина вектора
      '''for''' i = n '''downto''' 1
       '''if''' a[i] == 0
