Из чисел в первом файле выбрать положительные и числа кратные пяти и вывести в другой файл

const int n=100;
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{ double a[n]; int min=-100, max=100; AnsiString str,str1; float mas[200];int j=0,i;
   //ЗАпись в файл
    FILE *file;
    FILE *f1;
    FILE *f2;
    if ((file=fopen("OUT.txt","w"))==NULL) {
        printf("Невозможно открыть файл\n");
        exit(1);
    };
    for (i=0;i<n;i++) {
    a[i]= rand()%(max - min + 1) + min;;
    fprintf(file,"%lf\t\n",a[i]);
    };
    fclose(file);
 
//Чтение данных
   f1 = fopen("OUT.txt","rt");f2 = fopen("OU.txt","wt");
  while(i<=n){
                 fscanf(f1,"%e",&mas[j]);
                 i++;
                 j++;
             }
 
   for(i=0;i<n;i++){
   if (mas[i]>0) {
   fprintf(f2,"lf\t\n",mas[i]);
 
   }
 
   }
 
 
fclose(f1);
fclose(f2);
 
 
}

#include <Math.hpp>
...
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  Randomize();
  Button2->Enabled = false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Memo1->Clear();
  for(int i = 0; i < UpDown1->Position; i++)
   Memo1->Lines->Add(IntToStr(RandomRange(-100, 100)));
  Memo1->Lines->SaveToFile("12345.txt");
  Button2->Enabled = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  Memo2->Clear();
  TStringList *List = new TStringList;
  List->LoadFromFile("c:\\TMP\\12345.txt");
  for(int i = 0; i < List->Count; i++)
    if((List->Strings[i].ToInt() > 0) || (List->Strings[i].ToInt() % 5 == 0))
      Memo2->Lines->Add(List->Strings[i]);
  delete List;
  Memo2->Lines->SaveToFile("54321.txt");
  Button2->Enabled = false;
}

List->Strings[i].ToInt() > 0