В двусвязном списке определить элементы, меньше среднего арифметического и удалить эти элементы

double SR(Spisok *p) {
    Spisok *temp = p;
    double sum = 0, num = 0;
    while (temp != NULL) {
        num++;
        sum += temp->info;
        temp = temp->next;
    }
    sum = sum/num;
    return sum;
}
 
Spisok* DelSAr(Spisok *begin, double s_ar)     {
    int l=0;
    t=begin;
    Spisok *end = NULL;
//Элемент в теле
    while(t!=NULL)
    {
        if (t->info<s_ar){
            Spisok *mov=t;
            if(mov!=NULL){
            t=t->next;
            (t->prev)->next=t->next;
            (t->next)->prev=t->prev;
                delete mov;}
        }
        else
            t=t->next;
    }
//элемент в начале
    if(begin->info < s_ar)               
    {   Spisok *tmp=begin;
        begin=begin->next;
        begin->prev=NULL;
        delete tmp;
    }
//элемент в конце
    if (end->info < s_ar)
    {
        Spisok *tmp1 = end;
        end=end->prev;
        end->next=NULL;
        delete tmp1;
    }
    
    cout<<"Srednee arifmiticheskoe: "<<s_ar<<endl;
    cout<<"Kolichestvo elementov, menshe sr. arifmiticheskogo: "<<l<<endl;
    t=begin;
    return t;
}