Удалить из списка слов все предыдущие вхождения последнего слова

#include "stdafx.h"
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
 
typedef struct spisok
{
    char slova[30];
    struct node *next;
    struct node *prior;
 
} list;
 
void create(list **tail, char word[350], int n);
void print(list *head);
void remove(list **element);
 
void create(list **tail, char word[350], int n)
{
    int i = 0, j = 0;
    while(str[i] != '.')
    {
        if(str[i] != ' ')
        {
            (*tail)->slova[j] = str[i];         
            i++;
            j++;
            (*tail)->slova[j] = '\0';
        }
        else
        {
            list *next;
            next = (list*)malloc(sizeof(list));
            (*tail)->next = next;
            next->prior = *tail;
            next->next = NULL;
            *tail = next;
            i++;
            j = 0;
        }
    }
}
 
void print(list *head)
{
    for(list *p = head; p != NULL; p = p->next)
    {   
        printf("%s ", p->slova);
    }
}
void remove(list **element)
{
    if((*element)->prior == NULL)
    {
        (*element)->next->prior = NULL;
        
    }
    else
    {
        if((*element)->next == NULL)
        {
            (*element)->prior->next = NULL;
            
        }
        else
        {
            (*element)->prior->next = (*element)->next;
            (*element)->next->prior = (*element)->prior;
            
        }
    }
 
}
lastdel(char *str) 
{ 
    list *pr;
    char *p, ch; 
    ch = str[strlen(pr->slova)-1];
    while(1) 
    { 
        p = strchr(str, ch);    
        if (p == &str[strlen(pr->slova)-1]) 
        break; 
        strcpy(p, p + 1);
    } 
} 
int _tmain(int argc, _TCHAR* argv[])
{
    int n;
    char str[350];
    list *head;
    list *tail;
    head = (list*)malloc(sizeof(list));
    head->prior = NULL;
    head->next = NULL;
    tail = head;
    printf("Enter string: \n\t");
    gets(str);
    n = strlen(str);
    reate(&tail, str, n);
    printf("\n\nBefore change:\n");
    print(head);
    for(list *p = head; p->next != NULL; p = p->next)
    {
        if(strcmp(p->slova, lastde(str)) != 0)
        {
            if(p->prior == NULL)
                head = p->next;
                remove(&p);
        }
 
    }
    printf("\n\nAfter change:\n");
    print(head);
    printf("\n\n");
    system("pause");
    return 0;
}