Кодирование

[MrPavlik]

Программа должна кодировать кодом Хемминга(7,4),допустим ввожу 1101 ответ должен быть 1101001,а у меня чушь получается.Помогите решить проблемку,я не силен в программировании.

TForm1 *Form1;
   int KX[7],A[4][7],X[10],M[10],Y[7],n,k,k1,S,l,l1,m;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
for(k=1;k<n+1;k++)
{
 S=0;
for (l=1;l<m+1;l++)
 S+=A[k][l]*X[l]%2;
 Y[k]=S;
 }
 KX[7];
for(k=0;k<4;k++)
{
for (l=0;l<4;l++)
     X[l]=KX[k*4+l];
for (k1=0;k1<7;k1++)
     M[7*k*4/4];
{
S=0;
for (l1=0;l1<4;l1++)
 S+=A[k1][l1]*X[l]%2;
 Y[k*7+k1]=S;
 Form1->Label1->Caption=Form1->Label1->Caption+Y[k1];
} }     }