Бинарный файл из вещественных чисел

#include <stdio.h>  //Библиотека функций ввода и вывода
#include<locale.h> //Локализация
int main(int argc, char *argv[])
{
setlocale(LC_ALL,""); // Изменение текущей локали
 
  FILE *f = NULL;  //Объявление файловой переменной
  //Открытие файла для чтения и записи с проверкой
  if((f = fopen("1.txt","rb+")) == NULL){
    //Если файл открыть не удалось, то
    puts("Невозможно открыть файл!");//вывод сообщения
    return 0;                        //и выход
  }
  double val;  //Буфер для чтения данных
  //Чтение первого значения из файла
  if(fread(&val,sizeof(double),1,f) != 1){
    //Если файл пустой, то вывод сообщения и выход
    puts("Пустой файл!");
    return 0;
  }
  //Объявление и инициализация переменных
  double pred = val, nol=0.0; // pred - предыдущее значение
  long ind = 1;
  int fl = 0; // флаговая переменная
 
while(!feof(f)){  //Пока не конец файла
    //Чтение значения из файла
    fread(&val,sizeof(double),1,f);
 
// Если считанное значение больше предыдущего, то
    if(pred < val) {
   //  Если флаг 1, то переходим к следующему значению
    if  (fl==1) {ind++; continue;}
  // иначе записываем ноль на предыдущюю позицию
        else {
       fseek(f,(ind-1)*sizeof(double),SEEK_SET);
       fwrite(&nol,sizeof(double),1,f);
       ind++;
       fseek(f,2*sizeof(double),SEEK_CUR);
       ind++;
       fl=1; // устанавливаем флаг в 1
    }
     }
   else {ind++; fl=0;}  // устанавливаем флаг в 0 
}           
 fclose(f);  //Закрытие файла
  return 0;
}