programme ne marcge pas correctement

#include<stdio.h>
#include<stdlib.h>
#include<malloc.h>
#include<conio.h>
#include<string.h>

/*  element */

typedef struct element
{ char   palindrome[20];
  int    ligne[500];
  int     nombre;
  struct element *suivant;
}elem;


    /*  liste   */
    
    typedef struct liste
    { int nbre;
      elem *premier ; 
    }liste;
     
     /* initialisation  */
     
    liste init_liste(liste l)
    {  int i;
          liste *L;
          elem  *p;
       L=(liste*) malloc(sizeof(liste));
       if(L )
       {  p=(elem*) malloc(sizeof(elem));
            if(p)
            {
             p->suivant=NULL;
             for(i=0;i<500;i++)
             {p->ligne[i]=0;}
             p->nombre=0;
             strcpy(p->palindrome," ");
             l.premier=p;
             l.nbre=0;
             }
             else
             {
             fprintf (stderr, "Memoire insufisante\n");
             exit (EXIT_FAILURE);
              }
              }
              else
               {
                fprintf (stderr, "Memoire insufisante\n");
                 exit (EXIT_FAILURE);
                  }
  
                   return(l);
    }
    
  liste   ajout_elem(liste l,char  t[20], int  li)
  
  {    elem *p,*r,*q;
      int i;
      q=(elem*) malloc(sizeof(elem));
      p=(elem*) malloc(sizeof(elem));
       r=(elem*) malloc(sizeof(elem));
          for(i=0;i<500;i++)
             {p->ligne[i]=0;}
             p->nombre=0;
             p->suivant=NULL;
             strcpy(p->palindrome," ");
             for(i=0;i<500;i++)
             {r->ligne[i]=0;}
             r->nombre=0;
             r->suivant=NULL;
             strcpy(r->palindrome," ");
              for(i=0;i<500;i++)
             {q->ligne[i]=0;}
             q->nombre=0;
             q->suivant=NULL;
             strcpy(q->palindrome," ");
             
             
    if(p==NULL)
       {printf("\n pas assez de memoire");
        return(l);
        }
        else
        {    if (l.nbre==0)
             { strcpy(p->palindrome,t);
                      
              p->ligne[li]=1;
              p->nombre=1;
              p->suivant=NULL;
              l.premier=p;
              l.nbre++;
               return(l);
               }
             
               else{ 
                    p=l.premier;
                    
               while(p!=NULL){
               if((strcmp(p->palindrome,t))==0 )
               { p->nombre++;
               p->ligne[li]++;
               return(l);
                                   
               }
               r=p;
               p=p->suivant;
    
     }
                         
       if(p==NULL)
       {
       strcpy(q->palindrome,t);                                 
       q->ligne[li]=1;
       q->nombre=1;
       q->suivant=NULL;
       r->suivant=q;
                            
       l.nbre++;
       return(l);
       }
       }
                           
       }
       }
       void affiche_liste(liste l)
       {  elem *p,*q;
       int i,k;
       k=0;
       if(l.nbre==0)
       {printf(" \n liste vide");
       return ;
       }
       else
       {  
       p=l.premier;
       printf("\n les palindromes present dans ce fichier sont");
       while(p!=NULL)
       {printf("\n\t\t\t\t   %s  ",p->palindrome);
       p=p->suivant;}
       printf("\n il sont en nombre de %d ",l.nbre); 
       p=l.premier;
       while(p!=NULL)
       {printf("\n\nle palindrome %s est present %d fois",p->palindrome,p->nombre);
                        
       for(i=0;i<500;i++)
       { if(p->ligne[i]!=0)
       {
       printf("\n %d fois dans la ligne %d   ", p->ligne[i],i);
       k=k+p->ligne[i];}
       }
       p=p->suivant;
       }
       }
       printf("\n le nombre d'occurence total se tous les palindromes est %d",k);
       }

int isPalindrom(char str[])
{
  int l = 0;
  int r = strlen(str)-1;

if(r<=1)
{return 0;}
else{
  while (l<r)
    {
      if (str[l] != str[r])
        return 0;
      l++;
      r--;
    }

  return 1;
}
}


/* nombre de lignes totales*/

int nb_lignes_totales(FILE *p)
{
  int n=0, c;

  while ((c = fgetc(p)) != EOF)
  {
    if (c == '\n')
    {
      n++;
    }
  }
  return n;
}

int  main()
       {
        char nom_fichier[50],T[20],tab[20];
        int n=1, c;
        liste l;
        int i,j,k,li;
        FILE *p;
         l=init_liste(l);
            printf("\n donner le nom de fichier à tester  ");
            scanf("%s",& nom_fichier);  
           l=init_liste(l);
          
            p= fopen(nom_fichier,"r");
               
            if (p == NULL)
              {printf("\n le fichier ne peut pas etre lu: ");
               exit(-1);}
            else    
             { k=nb_lignes_totales(p);
              if(k==0)
              {printf("\n le fiçchier est vide ");}
              else
              {printf("\n le fichier contient %d lignes", k+1);
              }
              }
             fclose(p);
             
              p= fopen(nom_fichier,"r");
              
              while(!feof(p))
               {
               fscanf (p,"%s", &T);
  
               c = (fgetc(p));
                
                if (c == '\n')
                 {
                 n++;
                 }
                 
                if (isPalindrom(T))
                { strcpy(tab,T);
                 l=ajout_elem(l,T, n);
                 
                 }
                }
                 
                 fclose(p);
                 
                 affiche_liste(l);
                 getch();
                 return 1 ;
                 }