Непонятная ошибка

[maxvodo.dll]

хороший вопрос. особенно если учесть, что никаких действий над "nomop" в данном участке кода нет.
Но, возможно что "nomop" поределена как глобальная переменная, и портится в imp(mas_buf_1[i],mas_buf_2[i])

[RealSHELS]

Да nomop глобальная переменная, но нигде непортится.

function imp(a,b:boolean):boolean;
begin
  if a and not b then imp:=false else imp:=true;
end;

[mihali4]

nomop глобальная переменная, но нигде непортится

Тогда я вижу один вариант - повесить окошко "WatchList" (слежение за переменными) и внести туда NOMOP. А потом пройтись по F7 этот цикл, наблюдая за поведением NOMOP.
Чудес не бывает, где-то каменюка притаилась.

[RealSHELS]

А вот кстати. Вот токо что определил. после того как і станет больше 36 то значение nomop возвращается. Вот это прикол.

Тогда я вижу один вариант - повесить окошко "WatchList" (слежение за переменными) и внести туда NOMOP. А потом пройтись по F7 этот цикл, наблюдая за поведением NOMOP.

Вот этого я не умею.

[RealSHELS]

Все. кароче я в этом не разобрался, но решил проблему совсем иным путем.
Всем спасибо за помощь. Огромное спасибо.

[mihali4]

Вот этого я не умею.

CRTL+ALT+W - вызов окошка.
В нем правой мышкой вызываем попап-меню и выбираем AddWatch. В выпавшем окошке WatchProperties вводим имя переменной NOMOP в Expression и жмем ОК. А потом запускаем на выполнение F9 (предварительно поставив точку останова на строку for i:=1 to round(exp(ln(2)*kil)) do цикла).
Да, можно еще добавить удобства: правой мышкой по красной точке останова, выбрать пункт BreakPointProperties и установить в строке Condition (условия останова) "i=35", поскольку, как вы написали, NOMOP у вас беспричинно меняется при значении 36.
Цикл остановится, когда i станет равным 35 и после этого вам останется нажимать F7 и смотреть на значение NOMOP и ваш код.

[RealSHELS]

Спасибо за подробную инструкцию.