последовательность присвоения значения переменным

[Maincore]

Есть шесть переменных содержащих в себе только одно значение из двух либо ДА либо НЕТ. Назовем их var1,var2,var3,var4,var5,var6. Так же есть еще переменная в первой находиться числа от 1 до 6 назовем её 'Del'.

Пример первый (простой):
Если все шесть переменных содержат в себе значение Да то получаем число с переменой Del. К примеру значение её =2. Тогда в переменную Var2 присваиваем значение 1, Var3=2,Var4=3,Var5=4,Var6=5,Var1=6 . Как можно догадаться в 'Del' находиться число той переменой с которой начинается отчет.

А теперь сложнее:
если Var5 содержит значение НЕТ в 'Del'=4; тогда будет так Var4=1;Var6=2;
Var1=3;Var2=4;Var3=5; те var5 не присваиваем значение и сдвигаем присваивание значений переменным.

Вопрос;
Если сразу в 2 переменных будет значение нет, то как узнать последовательность присваивания значений?
А так же если 3 переменые = нет, 4 переменые = нет и 5 переменые = нет

[Korben5E]

..есть байт, который состоит из 6 бит(111011), есть переменная, в которой хранится номер инвертированного элемента(000100)
если сразу в 2х битах будет стоять 0 - 101011
то в переменной DEL можно увидеть следующее
del = not 101011 -> 010100 (2й и 4й биты)

как то-так

[evg_m]

Краткая формулировка задачи в моем понимании
Пронумеровать те позиции для которых значение ДА начиная с указанной (Del) позиции.

Правильно?
Если да, то читать далее.


Описание алгоритма решения
счетчик =1
начинаем присвоения с указанной в Del
и пропускаем те переменные для которых значение =нет.
Увеличение счетчика только при присвоении

Набросок решения
вместо 6 переменных массив

num:=1; // счетчик
for j:=0+Del to 5+Del do begin  // начинаем с индекса del
  if var[j mod 6] then begin // закольцование массива 
       val[j mod 6]:=num;
       num:=num+1; // при удаче увеличиваем счетчик
  end;

P.S. если критично 6 переменных, не массив

case j mod 6 of
0: if var1 then begin var1:=num; num:=num+1; end;
1: if var2 ....
...
5: if var6 ....
end;