написать комментарии к фрагменту программы

[nastena666]

помогите пожалуйста написать комментарии к каждой строчке фрагмента программы
1)


System::Char Data[20000];
System::String^ readful;
readful=InText->Text;
int ns=1;
System::String^ Abr;
int pr;
bool stat=true;
int abz=0;
int sl=0;;
bool nsi=false;
int slovo=0;
System::String^ SSlovo;
int stroka=1;
int nstr=0;
int nslo=0;
bool vnslv=true;
for (int i=0;i<readful->Length;i++)
{
stat=true;
if (readful[i]==13)
{
ns++;
stat=false;
if (nsi)
{
nsi=false;
slovo++;
Abr+=SSlovo[0];
}
if (SSlovo==nsl->Text)
{
if (vnslv)
{
nstr=stroka;
vnslv=false;
}

nslo++;

}
SSlovo="";
}
if (readful[i]==10)
{
ns++;
stat=false;
stroka++;
}
if (readful[i]==32)
{
pr++;
stat=false;
if (nsi)
{
nsi=false;
slovo++;
Abr +=SSlovo[0];

}
if (SSlovo==nsl->Text)
{
if (vnslv)
{
nstr=stroka;
vnslv=false;
}
nslo++;
}
SSlovo="";
}
if (readful[i]==65279)
{
stat=false;
}
if (stat)
{
if (pr>4){abz++;}
pr=0;
nsi=true;
SSlovo+=readful[i];
}
Data[i]+=readful[i];
}

size->Text=System::Convert::ToString(InT ext->Text->Length-ns);
Abrav->Text=Abr;
nklsimb->Text=System::Convert::ToString(slo vo);
nabs->Text=System::Convert::ToString(abz );
scslovo->Text="Начало с " + System::Convert::ToString(nstr) + " строки " + "Кол-во:"+ System::Convert::ToString(nslo);






2)


opd->ShowDialog();

System::String^ file = opd->FileName;
inc->Text=opd->FileName;
Stream^ read=opd->OpenFile();
array<Byte>^readtemp = gcnew array<Byte>(10000);
for (int i=0;i<read->Length;i++)
{
readtemp[i]=read->ReadByte();
}
Encoding^ unic=Encoding::UTF8;
System::String^ readful=unic->GetString(readtemp,0,readtemp->Length);
System::Char Data[10000];
InText->Text=readful;
int ns=1;
System::String^ Abr;
int pr;
bool stat=true;
int abz=0;
int sl=0;;
bool nsi=false;
int slovo=0;
System::String^ SSlovo;
int stroka=1;
int nstr=0;
int nslo=0;
bool vnslv=true;

for (int i=0;i<readful->Length;i++)
{
stat=true;
if (readful[i]==13)
{
ns++;
stat=false;
if (nsi)
{
nsi=false;
slovo++;
Abr+=SSlovo[0];
}
if (SSlovo==nsl->Text)
{
if (vnslv)
{
nstr=stroka;
vnslv=false;

}
nslo++;
}
SSlovo="";
}
if (readful[i]==10)
{
ns++;

stat=false;
stroka++;
}
if (readful[i]==32)
{
pr++;
stat=false;
if (nsi)
{
nsi=false;
slovo++;

Abr +=SSlovo[0];

}
if (SSlovo==nsl->Text)
{
if (vnslv)
{
nstr=stroka;
vnslv=false;
}
nslo++;
}
SSlovo="";
}
if (readful[i]==65279)
{
stat=false;
}
if (stat)
{
if (pr>4){abz++;}
pr=0;
nsi=true;
SSlovo+=readful[i];

}
Data[i]=readful[i];
}
size->Text=System::Convert::ToString(InT ext->Text->Length-ns);
Abrav->Text=Abr;
nklsimb->Text=System::Convert::ToString(slo vo);
nabs->Text=System::Convert::ToString(abz );
scslovo->Text="Начало с " + System::Convert::ToString(nstr) + " строки " + "Кол-во:"+ System::Convert::ToString(nslo);

save->Text ="Количество символов: " + size->Text +" Количество слов: "+ nklsimb->Text + " Количество абзацев: " + nabs->Text +" Аббревиатура: " + Abrav->Text + " Слово для поиска: " +nsl->Text + " Найдено: " + scslovo->Text ;
save->SaveFile(opd->FileName + ".rtf");