Удаление элемента из середины списка

#include <stdio.h>
#include <conio.h>
#include <iostream>
 
typedef struct St
{
        int data;
        struct St *next;
        } element;
typedef element *ptr;
 
ptr AddElem (ptr head, int elem)
{
    ptr x;
    x=new element;
    x->data=elem;
    x->next=head;
    head=x;
    return head;
}
 
void Print (ptr head)
{
     ptr x=head;
     while (x!=NULL)
     {
           printf ("%d ", x->data);
           x=x->next;
     }
}
 
ptr DelElem (ptr *current)
{
    ptr x;
    x=(*current)->next;
    (*current)->next=(*current)->next->next;
    free (x);
    return *current;
}
 
int main (void)
{
    int n,i;
    printf ("Enter n: ");
    scanf ("%d", &n);
    ptr head=NULL, x, tmp;
    for (i=0; i<n; i++)
        head=AddElem(head,(n-i));
    Print(head);
    printf ("\n");
    x=head;
    x=x->next; //сейчас мы находимся на 2-ом элементе списка
    printf ("%d\n", x->data);
    for (i=1; i<=3; i++)
        {
              x=DelElem(&x); //так как мы находимся на 2-ом элементе списка, то после выполнения этой строки, подпрограмма должна удалить его, но удаляется почему-то 3-ий (следующий) элемент.
              printf ("%d: ", i); //вывод на экран номер итерации цикла for
              Print(head); //вывод на экран уже изменённого списка
              printf ("\n");
        }
    getch();
    return 0;
}

delete current;

x=current->next;

current->next=current->next->next;