При добавлении в начало списка весь список рушится, где ошибка?

//---------------------------------------------------------------------------
 
#pragma hdrstop
 
//---------------------------------------------------------------------------
//#pragma argsused
#include <fstream.h>
#include <iostream.h>
#include <stdio.h>
#include <conio.h>
#include <string.h>
//---------------------------------------------------------------------------
const n=20;
struct book
{
 int Number;
 char author[20];
 char title[20];
 char publishing[20];
 int year;
 book *next;
};
 
int i=0,j=0;
book *p,*q, *h;
int n_el;
 
 
void obhod()
{
 clrscr();
 p=h;
 i=0;
 while(p!=NULL)
 {
  gotoxy(1,i+3); cout<<p->Number;
  gotoxy(5,i+3); cout<<p->author;
  gotoxy(20,i+3); cout<<p->title;
  gotoxy(40,i+3); cout<<p->publishing;
  gotoxy(60,i+3); cout<<p->year<<endl;
  p=p->next;
  cout<<endl;
  i++;
 }
 getch();
}
void shablon()
{
  q=new book;
  cout<<"Enter number book: ";
  cin>>q->Number;
  cout<<"Enter author book: ";
  cin>>q->author;
  cout<<"Enter title book: ";
  cin>>q->title;
  cout<<"Enter publishing book: ";
  cin>>q->publishing;
  cout<<"Enter year of the publishing book: ";
  cin>>q->year;
}
 
void add_start()
{
  p=h;
  shablon();
  p->next=q;
  q->next=NULL;
  obhod();
}
 
void add_end()
{
  p=h;
  while(p->next!=NULL)
  p=p->next;
  shablon();
  p->next=q;
  q->next=NULL;
  obhod();
}
 
void add_after()
{
  p=h;
  while(p->Number!=n_el) p=p->next;
  shablon();
  q->next=p->next;
  p->next=q;
  p=q;
  obhod();
}
 
void delete_start()
{
  p=h;
  h=p->next;
  delete p;
  obhod();
}
 
void delete_end()
{
  int k=0;
  p=h;
  while(p->next!=NULL)
  {p=p->next;
   k++;}
 
  p=h;
  i=0;
  while(i!=k-1)
  {p=p->next;
   i++;
  }
  q=p->next;
  p->next=NULL;
  delete (q);
  obhod();
}
 
void delete_after()
{
  int k=0;
  p=h;
  while(p->Number!=n_el)
  {p=p->next;
   k++;
  }
  i=0;
  p=h;
  while(i!=k)
  {p=p->next;
   i++;
  }
  q=p->next;
  p->next=q->next;
  delete (q);
  obhod();
}
 
void search()
{
 p=h;
 int boolean=0;
 while((p->next!=NULL)||boolean!=1)
 {if (p->Number==n_el)
  {q=p;
   boolean=1;
   }
  p=p->next;
  }
 if(boolean==1)
 {
 }
}
 
//---------------------------------------------------------------------------
void main()
{
clrscr();
p=NULL;
h=NULL;
h=NULL;
q=new book;
 
ifstream f1 ("data");
for (int i=0; i<n; i++)
  {
 
   p=new book;
   f1
   >>p->Number
   >>p->author
   >>p->title
   >>p->publishing
   >>p->year;
   q->next=p;
   if (h==NULL) h=p;
   q=p;
   p->next=NULL;
  }
f1.close();
 
char selection;
int metka;
 
while(selection!='0')
{
 clrscr();
 cout<<"viberite:"<<endl;
 cout<<"1 - Obhod spiska"<<endl;
 cout<<"2 - Dobavlenie elementa v spisok"<<endl;
 cout<<"3 - Udalenie elementa iz spisok"<<endl;
/* cout<<"4 - Poisk po polu year"<<endl;
 cout<<"5 - Poisk po polu author"<<endl;     */
 cout<<"0 Exit"<<endl;
 selection=getch();
 switch(selection)
 {
  case '1': obhod();
  break;
  case '2': {clrscr();
             cout<<"1 - Dobavlenie elementa v nachalo spiska"<<endl;
             cout<<"2 - Dobavlenie elementa v konec spiska"<<endl;
             cout<<"3 - Dobavlenie elementa posle elementa spiska s nomerom: "<<endl;
             selection=getch();
             switch(selection)
             {
             case '1': add_start();
             break;
             case '2': add_end();
             break;
             case '3': cin>>n_el;
                       add_after();
             break;
             }}
  break;
  case '3': {clrscr();
             clrscr();
             cout<<"1 - Udalenie elementa iz nachalo spiska"<<endl;
             cout<<"2 - Udalenie elementa iz konec spiska"<<endl;
             cout<<"3 - Udalenie elementa posle elementa spiska s nomerom: "<<endl;
             selection=getch();
             switch(selection)
             {
             case '1': delete_start();
             break;
             case '2': delete_end();
             break;
             case '3': cin>>n_el;
                       delete_after();
             break; }}
  break;
 
 
 
  case '4': {
             clrscr();
 
             getch();}
  break;
  case '5': ;
  break;
  case '6':
  break;
 }
}
 
getch();
}
//---------------------------------------------------------------------------

void add_start()
{
  p=h;
  shablon();
  p->next=q;
  q->next=NULL;
  obhod();

void add_end()
{
  p=h;
  while(p->next!=NULL)
  p=p->next;
  shablon();
  p->next=q;
  q->next=NULL;
  obhod();
}

void add_start()
{
  shablon();   // Создал новый элемент
  q->next = h;   // ОН указывает на голову списка (добавляешь же в начало)
  h = q;   // Ну, и переносишь голову на только что добавленный элемент
  p = h;   // Это я не знаю, зачем нужно, но пусть будет
  obhod();
}