c programa su sarasais

sveiki, reikia parasyti programa kuri panaikintu visus pasikartojancius skaicius is saraso.

padariau tiek, taciau meta klaida trinti_pasikartojancius funkcijoje, gal kas padetu?

#include <stdio.h>
#include <stdlib.h>

struct el{  int duom;
           struct el *kitas;
           struct el *pries;
};

void sukurti_sarasa(struct el ** , struct el ** );
void spausdinti_sarasa(struct el * );
void trinti_pasikartojancius(struct el ** , struct el ** , struct el * );

int main()
{
  struct el *prad, *pab, *elem;
   sukurti_sarasa(&prad, &pab);
   trinti_pasikartojancius(&prad,&pab,prad);
   spausdinti_sarasa(prad);
   return 0;
}

void sukurti_sarasa(struct el * *prad, struct el * *pab){
   struct el *g;
   int reiksme, kiek, x;
   printf("iveskite norimu elementu kieki: ");
   scanf("%d", &kiek);
   *prad = NULL;
   *pab = NULL;
   for(x=0; x<kiek; x++){
       printf("iveskite %d elementa: ",x+1);
       scanf("%d", &reiksme);
       if(*prad == NULL){
           g = (struct el *) malloc(sizeof(struct el));
           g->duom = reiksme;
           g->kitas = NULL;
           g->pries = NULL;
           *pab = g;
           *prad = g;
       }
       else{
           g = (struct el *)malloc(sizeof(struct el));
           g->duom = reiksme;
           g->kitas = NULL;
           g->pries = *pab;
           (*pab)->kitas =g;
           *pab =g;
       }
   }
   printf("vienkryptis sarasas sukurtas\n\n");
}

void spausdinti_sarasa(struct el * elem){
   int i=1;
   printf("*********************************\n\n");
   puts("spausdiname sarasa:");
   while(elem != NULL){
       printf("%d elementas yra: %d\n",i, elem->duom);
       elem = elem->kitas;
       i++;
   }
}

void trinti_pasikartojancius(struct el * *prad, struct el * *pab, struct el * elem){
   struct el *g, *elemk;
   int i =1;
   g = *prad;
   elem= elem->kitas;
       if(g->duom == elem->duom){
           elem->kitas->pries = elem->pries;
           elem->pries->kitas = elem->kitas;
           free(elem);

           if( g -> kitas != NULL){
               g = g -> kitas;
               g -> pries = NULL;
               free ( *prad );
               *prad = g;
           }
           else{
               free ( *prad );
               *prad = NULL;
               *pab = NULL;
           }
       }



}

Jei klaida parasytum atsakyma gautum manau zymiai greiciau.

Jei klaida parasytum atsakyma gautum manau zymiai greiciau.

dabar cia nepilnas algoritmas ir nemeta klaidos, kas supranta dabaigs algoritma, cia reikida while ciklo kad eitu per visus saraso elementus, bet man nesigauna