А зачем обнулять flg в основной программе, если он уже обнулен? Там скорее его в не-ноль надо выставить.