Ошибка с alloc.h

#include <stdio.h>
#include <conio.h>
#include <alloc.h>
#include <stdlib.h> //изначально не было в проге, ниже объяснил почему засунул
 
struct spis
{char data[20];
  struct spis *next;};
struct spis * create(void); //прототип функции создания списка (возвращает адрес его головы)
void list(spis *head); // прототип функции просмотра списка
struct spis *head; // глобальная переменная, адрес головы списка
main()
{
  head= create();
  list(head);
  free(head);
}
struct spis * create(void)
{spis *p, *pred; char c;
// pred – указатель на предыдущую структуру
head=pred=p=(spis *)malloc(sizeof(spis)); //выделяем память для первой записи
printf(" фамилия: ");
scanf("%s", p->data);
do { p=(spis *)malloc(sizeof(spis));
  printf("\n фамилия: ");
  scanf("%s", p->data);
  pred->next=p; //ссылка из предыдущей записи на текущую
  pred=p; // сохранение адреса текущей записи
  printf(" Закончить? y/n ");
  c=getch();
} while (c!='y');
p->next=NULL;
return head;
}
void list(spis *head)
{spis *p;
p=head;
while (p!=NULL) // пока не конец списка
{printf("\n фамилия: %s",p->data);
  p=p->next; // продвижение по списку
}
getch();
}

void list(spis *head);

void list( struct spis *head );

typedef struct
{
    char data[20];
    struct spis *next;
} spis;

#include <stdio.h>
#include <conio.h>
#include <stdlib.h>
#include <string.h>
typedef struct
{char data[20];
  struct spis *v1; // v1 – указатель на предыдущую структуру
  struct spis *v2; // v2 – указатель на последующую структуру
} spis;
void create(void); // создание
void list(spis *); // просмотр
void del(void); // удаление
struct spis *head,*tail; // указатели на начало и конец списка
main()
{
  clrscr();
  create();
  list(head); // просмотр с начала списка
  list(tail); // просмотр с конца списка
del();
list(head);
free(head);
}
void create(void)
{spis *p,*pred;
  pred=NULL;
  do { p=(spis *)malloc(sizeof(spis));
    printf("Фамилия: "); gets(p->data);
    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)
{if (p==head)
  while (p != NULL)
    {puts(p->data);
      p=p->v2;
    }
   else if (p==tail)
  while ( p!= NULL)
  {puts(p->data);
    p=p->v1;
  }
  else
    puts("Неверный адрес ");
    getch();
  }
void del(void)
{spis *p,*temp;char f[20]; // f[20] – Строка для удаляемой фамилии
  clrscr();
  printf("Фамилия: ");gets(f);
  p=head;
  while (p!=NULL)
    {if (strcmp((p->data),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;
}
}