elp[u][i] = index_of[elp[u][i]];

        }

     }

     u_lu[u+1] = u-l[u+1];

     // формируем (u + 1) невязку

     //------------------------------------------------------------------------------------------------

     if (u < n-k)  // на последней итерации расхождение не было обнаружено

     {   

        if (s[u + 1]!=-1) d[u+1] = alpha_to[s[u+1]]; else d[u + 1] = 0;

        for (i = 1; i <= l[u + 1]; i++)

           if ((s[u + 1 - i] != -1) && (elp[u + 1][i]!=0))

           d[u+1] ^= alpha_to[(s[u+1-i]+index_of[elp[u+1][i]])%n];

        // переводим d[u+1] в индексную форму

        d[u+1] = index_of[d[u+1]];

     }

   } while ((u < n-k) && (l[u+1]<=t));

   // расчет локатора завершен

   //-----------------------------------------------------

   u++ ;

   if (l[u] <= t)

   {  // коррекция ошибок возможна

     // переводим elp в индексную форму

     for (i = 0; i <= l[u]; i++) elp[u][i] = index_of[elp[u][i]];

     // нахождение корней полинома локатора ошибки

     //----------------------------------------------

     for (i = 1; i <= l[u]; i++) reg[i] = elp[u][i]; count = 0;