Конструктор в односвязном списке

#include <stdio.h>
 
const char *in = "in.txt",
           *out = "out.txt";
 
struct list
{
   double elem;
   list *next;
   list(double elem = 0, list * next = NULL) : elem(elem), next(next) {};
};
list *L = NULL;
 
// Функция считывает многочлен из файла
void Input()
{
   double elem;
   FILE *f;
   fopen_s(&f, in, "r");
   while (fscanf_s(f, "%lf", &elem) == 1)
   {
      list *node = new list(elem);
      if (L)
      {
         list *p = L;
         for (p; p->next; p = p->next);
         p->next = node;
      }
      else
         L = node;
   }
   fclose(f);
}
 
// Функция проверяет, является ли последовательность неубывающей
bool IsSorted()
{
   bool flag = true;
   list *p = L;
   for (p; flag == true; p = p->next)
      flag = p->elem <= p->next->elem;
   return flag;
}
 
// Функция разворачивает список
void ReverseList()
{
   list *ptr = NULL,
          *p = L;
   while (p)
   {
      list *next = p->next;
      p->next = ptr;
      ptr = p;
      p = next;
   }
   L = ptr;
}
 
// Функция записывает числа в файл
void Output()
{
   FILE *f;
   fopen_s(&f, out, "w");
   if (L)
      for ( ; L; L = L->next)
         fprintf(f, "%.2lf ", L->elem);
   else
      fprintf(f, "%s", "Список пуст!");
   fclose(f);
}
 
// Функция удаляет список
void DeleteList()
{
   list *tmp;
   while (L)
   {
      tmp = L->next;
      delete L;
      L = tmp;
   }
}
 
int main()
{
   Input();
   if (L && !IsSorted())
      ReverseList();
   Output();
   DeleteList();
   return 0;
}