Создание, правка, и сохранение двусвязного списка

#include <stdio.h>
#include <conio.h>
#include <stdlib.h>
#include <string.h>
 
 
int i;
struct spis
{
    char name[20], surname[20], otchestvo[20], predmet[20];
    struct spis *v1; // v1 указатель на предыдущую структуру
    struct spis *v2; // v2 указатель на последующую структуру
} v;
    struct spis predmets[4];
    struct spis ocenka[4];
 
void create(void); // создание
void list(spis *); // просмотр
void del(void); // удаление
void save(spis *); // сохранение
void load(void); // загрузка
void add(void); // добавление
void search(void); // поиск и корректировка записи
struct spis *head,*tail; // указатели на начало и конец списка
 
 
 
 
main()
{
    char c;
    while (1)
    {   
        system("cls");
        puts(" 1 - Создание списка.");
        puts(" 2 - Просмотр списка.");
        puts(" 3 - Добавление в список новой записи.");
        puts(" 4 - Поиск и корректировка записи в списке.");
        puts(" 5 - Удаление записи из списка.");
        puts(" 6 - Сохранение списка в файле.");
        puts(" 7 - Загрузка списка из файла.");
        puts(" 8 - Выход.");
        c=getch();
        switch(c)
        {   case '1':create();
            break; // создаём файл с записями
            
            case '2':list(head);
            break;     // просматриваем содержимое
            
            case '3':add();
            break;   // добавляем новые записи
            
            case '4':search();
            break;    // поиск и корректировка оценок по фамилии
            
            case '5':del();
            break; // удаление записи
            
            case '6':save(head);
            break;     // сохранение списка в файл
            
            case '7':load();
            break;   // загрузка списка из файла
            
            case '8':return 0; free(head);       // выход
            default : puts("Такого пункта нет!");
            getch();
        }
    }
}
 
 
void search(void)
{
    printf("Coming soon...");
}
 
 
void add(void)
{
    spis *p; // p – указатель на структуру
    p=(spis *)malloc(sizeof(spis));
    do
    {
    printf("Введите имя: "); gets(p->name);
    printf("Введите фамилию: "); gets(p->surname);
    printf("Введите отчество: "); gets(p->otchestvo);
    
    tail->v2=p;
    p->v1=tail;
    p->v2=NULL;
    tail=p;
    printf("Закончить ввод - <esc>");
    }
    while(getch() !=27);
}
 
void save(spis *p)
{
    FILE *in;
    if (tail == NULL)
    {
    printf("\n Список пуст, для начала создайте список\n");
    getch();
    }
    else {
    in = fopen("data.txt", "wb");
    if (in != NULL)
    {
      while (p != NULL)
      {
        if (!fwrite(p, sizeof(spis), 1, in))
        {
          perror("fwrite");
          getchar();
          fclose(in);
          return ;
        }
        p = p->v2;
      }
      fclose(in);
      printf("\n Список успешно сохранен в файл!");
      getch();
    }
    else
    {
    printf("Ошибка! Не удалось прочитать файл\n");
    printf("Нажмите любую клавишу...\n");
    getchar();
    }
  }
}
 
 
void load(void)
{
    spis *p, *pr; // p, pr – указатели на структуру
    FILE *in;
    pr = NULL;
    p = head;
    while (p != NULL)
    {
        spis *pTemp;
        pTemp = p->v2;
        free(p);
        p = pTemp;
    }
    in = fopen("data.txt", "rb");
    do
    {
        p= (spis*)malloc(sizeof(spis));
        fread(p, sizeof(spis), 1, in);
        p->v1 = NULL;
        p->v2 = NULL;
        p->v1 = pr;
        if (pr != NULL)
            pr->v2 = p;
        else
        head = p;
        pr = p;
    }
    while (!feof(in));
    tail = p->v1;
    tail->v2 = NULL;
    p = tail;
    printf("\n Список успешно загружен!");
    getch();
}
 
 
void create(void)
{
    system("cls");
    spis *p,*pred, *predmets;
    pred=NULL;
    do
    {
    p=(spis *)malloc(sizeof(spis));
    printf("Введите имя: "); gets(p->name);
    printf("Введите фамилию: "); gets(p->surname);
    printf("Введите отчество: "); gets(p->otchestvo);
    
    for (i=1; i<=4; i++)
    {
        printf("Введите предмет №%d: ", i); gets(predmets[i].predmet);
        predmets[i]=v;
    }
    
    p->v1=pred;
    if (pred != NULL)
    {
      pred->v2=p;
    }
    else
        head=p;
        pred=p;
        puts("Закончить ввод - <esc>");
    }
    while (getch()!=27);
    tail=p;
    tail->v2=NULL;
}
 
void list(spis *p)
{
    system("cls");
    if (p==head)
        while (p != NULL)
        {
            printf("\n-----------------------------------\n");
            puts(p->name);
            puts(p->surname);
            puts(p->otchestvo);
            
            for (i=1; i<=4; i++)
            {
                puts(v.predmet);
            }
            
            p=p->v2;
            printf("\n-----------------------------------\n");
        }
    else if (p==tail)
    while ( p != NULL)
    {
        puts(p->name);
        puts(p->surname);
        puts(p->otchestvo);
        puts(v.predmet);
        p=p->v1;
    }
    else
    puts("Неверный адрес ");
    getch();
}
 
void del(void)
{
    spis *p,*temp;
    char f[20]; // f[20] – массив
    system("cls");
    if (tail == NULL)
    {
    printf("Список пуст, нужно заполнить данными");
    getch();
    }
    else
    {
    printf("Введите фамилию для удаления записи: ");gets(f);
    p=head;
    while (p != NULL)
    {   
    if (strcmp((p->surname),f) == 0) // если найдена заданная фамилия
    {
        if (p==head) // если найденая запись первая
        {
            head=p->v2;
            head->v1=NULL;
            free(p);
            p=head;
        }
        else if (p==tail) // если найденая запись последняя
        {
            tail=p->v1;
            tail->v2=NULL;
            free(p);
            p=tail;
        }
        else // удаление из середины
        {
            p->v2->v1=p->v1;
            p->v1->v2=p->v2;
            temp=p;
            p=p->v2;
            free(temp);
        }
    }
    else // если заданная фамилия не найдена продвигаемся по списку
    p=p->v2;
    }
    getch();
    }
}