fopen (c, "rt");
        char S[40];
        int i=0;
                float max=S[0];
                float min=S[0];
        while (fgets(S, 40, f)){
                if (S[strlen(S)-1]=='\n')
                S[strlen(S)-1]='\0';
                Memo2->Lines->Add(String(S));
                for (i=0; i<Memo1->Lines->Count; i++){
                        if (S[i]<min) min=StrToFloat(S[i]);
                        if (S[i]>max) max=StrToFloat(S[i]);
                }
                float s = max+min;
                Edit1->Text=s;
                Edit2->Text=max;
                Edit3->Text=min;

        }

        fclose(f);