void __fastcall TForm1::Button4Click(TObject *Sender)
{
        medis.Rasti(Edit5->Text.c_str(),medis.formatas);

        for(int i=0; kiekis > i;i++)
        {
                char* str = new char[255];
                strcpy(str,"| ");
                strcat(str,Masyvas[i].Gauti(medis.formatas));
                strcat(str," | ");

                for(int j=0; 4 > j;j++)
                        if(medis.formatas != j)
                        {
                                strcat(str,Masyvas[i].Gauti(j));
                                strcat(str," | ");
                        }

                Memo1->Lines->Add(str);

                delete [] str;
        }
}