Проблема в коде

#include <fstream>
#include <iostream>
#include <ctime>
#include <string>
using namespace std;


int main()
{
setlocale(LC_ALL, "ru");
int N = rand() % 15 + 7;
int i;


srand(time(NULL));

string path = "data.dat";

double* chisla = new double[N];

ofstream fl;
fl.open(path, ios_base::binary);

// Записываем в файл числа в бинарном виде

if (!fl.is_open())
{
cout << "Error\n\n";
}
else
{
fl << "Начальный массив\n";
for (i = 0; i < N; i++)
{

int r = rand() % 99 + 1;
chisla[i] = r / 100.f;

fl << chisla[i] << "; ";

}
}
fl << endl << endl;
fl.close();


// Вывод начального массива на экран

ifstream fl1;
fl1.open(path, ios_base::binary);

if (!fl1.is_open())
{
cout << "Ошибка при открытии файла!\n\n";
}
else
{
cout << "С Файла считано:\n\n";
string str;

while (!fl1.eof())
{
str = "";
getline(fl1, str);
cout << str << endl;
}
}
fl1.close();

//Работа с массивом

cout << endl << endl;
double max = 0, min = 100;
int e, f;
double h;

for (int i = 0; i < N; i++)
{
if (chisla[i] > max)
{
max = chisla[i];
e = i;
}
if (chisla[i] < min)
{
min = chisla[i];
f = i;
}
}

h = chisla[e];
chisla[e] = chisla[f];
chisla[f] = h;


// Выводим измененный массив на экран
cout << "Измененный массив:\n";
for (i = 0; i < N; i++)
cout << chisla[i] << "; " ;
cout << endl << endl;


// Записываем измененный массив в файл

ofstream fr;

fr.open(path, ofstream::app, ios_base::binary);
if (!fr.is_open())
{
cout << "Error\n\n";
}
else
{

fr << "Измененный массив\n";
for (i = 0; i < N; i++)
fr << chisla[i] << "; ";

}
fr << endl << endl;

fr.close();

system("pause");

}