String[,] Base1 = new string[1, 1]

private: System::Void button1_Click(System::Object^  sender, System::EventArgs^  e)
             {
String^ S;
S = Convert::ToString(listBox1->Items[listBox1->SelectedIndex]);
String^ S1;
System::IO::FileStream^ filestrim = gcnew FileStream("SLOVAR.dat", FileMode::Create, FileAccess::Write);
filestrim->Position = 0;
System::IO::StreamWriter^ sr2 = gcnew StreamWriter(filestrim, Encoding::GetEncoding(1251));
            for (int ii = 0; ii < Base1->Length/4; ii++)
            {
                if ((S != Base1[ii, 0]) && (S != Base1[ii, 1]))
                {
                    S1 = Base1[ii, 0];
                    for (int i = 0; i < Base1[ii, 0]->Length; i++)
                        sr2->Write(Base1[ii, 0][i]);
                    sr2->WriteLine();
                    S1 = Base1[ii, 1];
                    for (int i = 0; i < Base1[ii, 1]->Length; i++)
                        sr2->Write(Base1[ii, 1][i]);
                    sr2->WriteLine();
                }
            sr2->Close();
}