Memo1->Lines->Add("\n");
        Memo1->Lines->Add("Результаты расчёта:");

        f = fopen(s, "rb");

        int max=0;

        while (fread (&d, sizeof(zavod), 1, f)){
                String buf = d.prod;
                if (buf == "Телевизоры"){
                if (d.kol>max) max=d.kol;}

        }
        Edit5->Text=max;
        while (fread (&d, sizeof(zavod), 1, f)){
                        if (d.kol == max){
                        Memo1->Lines->Add(String(d.name)+" "+String(d.prod)+" "+IntToStr(d.kol)+" "+String(d.rent));
                }
        }