Найти среднее значение элементов двусвязного списк

 struct TStudent *curr;
  int n, i, Sum, Sred;
  n=0;
  Sum=0;
  curr=head;
  while(curr!=NULL)
  {
      n++;
      if ((*curr).b_name==Sum)
      {
            for (i = 0; i <= n; i++)
          {
          Sum=Sum+i;
          }
       }
       curr=(*curr).next;
     }
   Sred=Sum/i;
 
  ShowMessage("Среднее значение:" + IntToStr(Sred));

 struct TStudent *curr;
  int n, i, Sum;
  float Sred;
  n=0;
  Sum=0;
  curr=head;
  while(curr!=NULL)
  {
      n++;
          Sum += curr->b_name;
       curr=curr->next;
 }
   Sred=Sum/(float)n;
 
  ShowMessage("Среднее значение:" + FloatToStr(Sred));

//описание типа элемента списка
 struct TStudent
 {
   String a_name;
   String b_name;
   String c_name;
   struct TStudent *prev;  //указатель на предыдущий элемент списка
   struct TStudent *next;  //указатель на следующий элемент списка
 };
//глобальные переменная
struct TStudent *head; //указатель на первый элемент списка
struct TStudent *tail; //указатель на последний элемент списка

struct TStudent *curr; // адрес нового элемента
   curr = new TStudent;  // выделение памяти для нового элемента
   (*curr).a_name=Edit1->Text;
   (*curr).b_name=Edit2->Text;
   (*curr).c_name=Edit3->Text;
   if(head == NULL) //если список пустой, то на новый элемент
                    // будут указывать и head и tail
         tail=curr;
   else   //если список не пустой, то prev "бывшего" первого элемента
          //должен по указывать на новый элемент
         (*head).prev=curr;
   (*curr).next=head;
   (*curr).prev=NULL;
   head=curr;
   Edit1->Text="";
   Edit2->Text="";
   Edit3->Text="";

struct TStudent
{
    AnsiString name;
    int algebra;
    int geometria;
    struct TStudent *prev;  //указатель на предыдущий элемент списка
    struct TStudent *next;  //указатель на следующий элемент списка
};
//глобальные переменные
struct TStudent *head; //указатель на первый элемент списка
struct TStudent *tail; //указатель на последний элемент списка
struct TStudent *curr;  //указатель на текущий элемент списка
 
//Добавить ученика, s-имя, a - оценка по алгебре, g - оценка по геометрии
void Add(AnsiString s, int a, int g)
{
    //создать новый элемент
    if (head == NULL)   //если список пуст
    {
        head = new TStudent;              //создать элемент
        tail = head;                      //голова и конец совпадают
        head->prev = head->next = NULL;   //остальные указатели пустые
    }
    else
    {
        tail->next = new TStudent;   //создать следующий элемент после конца
        tail->next->prev = tail;     //развернуть указатель prev последнего элемента на предпоследний
        tail = tail->next;           //сдвинуть tail на последний элемент
        tail->next = NULL;           //после tail ничего нет
    }
    //положить в новый элемент значения
    tail->name = s;
    tail->algebra = a;
    tail->geometria = g;
}
 
//Удалить последнего ученика
void Remove()
{
    //удалять только если последний не пуст
    if (tail != NULL)
        if (tail==head)          //если в списке всего один элемент
        {
            delete tail;         //удалить
            tail = head = NULL;  //все указатели обнулить
        }
        else 
        {
            tail = tail->prev;   //указатель tail сдвинуть на предыдущий
            delete tail->next;   //удалить последний
            tail->next = NULL;   //обнулить указатель на следующий после tail
        }
 
}
 
//среднее значение элементов списка
float AVG()
{
    //если в списке есть элементы
    if(head != NULL)
    {
        float sum = 0;
        int count = 0;         //общее количество оценок
        curr = head;           //curr пробегает все элементы с головы
        while(curr != NULL)    //пока curr не пуст
        {
            sum += curr->geometria + curr->algebra;   //добавить к sum оценки текущего ученика
            curr = curr->next;                        //сдвинуть curr
            count += 2;                               //колество оценок увеличить на 2
        }
        return sum / count;
    }
    return 0;
}

Add("олололя", 5,8);   //добавление в список так
Add(Edit1->Text, StrToInt(Edit2->Text), StrToInt(Edit3->Text);    //или так