Работа со списками

---------------------------------------------------------------------------
 
#include vcl.h
#include conio.h
#include iostream.h
#pragma hdrstop
 
---------------------------------------------------------------------------
 
#pragma argsused
using namespace std;
struct D структура данных
{
         char name;       имя студента
         char group;                 группа
         int cMarks;       колличество оценок
         int marks;              масив оценок
} ;
struct TList
{
   TList next;  указатель на след.елем списка
   TList prev; указатель на предыд. елем списка
   D data; данные
 
}  ;
D setData ()  заполнение информации студента
{
  D tmp;     временная стуктура
  tmp.group = new char [6];    выделяем памят под группу
  char buf [20];
  cout Введите имя ;
 
  do
       cin.getline(buf, 19);  ввод имени
  while (strlen(buf)==0);
  tmp.name = new char [strlen(buf) +1];
  strcpy(tmp.name, buf);выделяем память под строку
 
  coutВведите группу;
  do
        cin.getline(tmp.group, 5); ввод группы
  while (strlen(tmp.name)==0);
 
  coutВведите колличество оценок;
  cintmp.cMarks;ввод оценок
 
  tmp.marks = new int [tmp.cMarks];  выделение памяти под масив оценок
 
  coutВведите оценкиn;
  for (int i = 0; i  tmp.cMarks; i++)
        { cout  Mark # i + 1 ;
          do
          {
                cintmp.marks[i];  ввод оценок
          }
          while (tmp.marks[i]  1  tmp.marks[i]  5);
        }
        return tmp;   возвращаем заполненую структуру
}
 void printData(D dat)   форматированый вывод информации
 {
        printf(%-19s, dat.name); 19 символов под имя
        printf(%-5s, dat.group); 5 символов под группу
        for (int i = 0; idat.cMarks; i++);
                printf(%-2d, dat.marks[i]); 2 символа под оценку
        coutend1;
  }
 
  void moveToHead(TList &list)переход в начало списка
  {
    while (list-prev != NULL)
        list = list-prev;
  }
 
  void addToTail(TList &list) добавление нового елемента в конец списка
  {
        TList tmp = new TList;создание нового елемента
        tmp-data = setData();заполням информацию
        if (list == NULL)если лист пуст
        {
                list = tmp;
                list-next = NULL; след.елемент пустой
                list-prev = NULL; пред.елемент пустой
        }
        else
        {
                while (list-next !=NULL)  переходим в конец списка
                        list = list-next;
                tmp-prev = list;
                list-next = tmp; цепляем новый елемент
                tmp-next = NULL;
                moveToHead(list);  возвращаемся в начало
        }
  }
 
  void deleteFirst (TList &list) удаление 1 елемента списка
  {
        if (list == NULL) return; если список пуст, удалять нечего
        list = list-next;
        delete list-prev;очистка памяти
        list-prev = NULL;
 
  }
 
  void deleteAt (TList &list)
  {
        if (index  lastIndex()  index  0  pFirst == NULL)
        {
            cout неверный индекс или список пустend1;
            return false;
        }
        ListData p = pFirst;
        for (int i=1; i!=index; i++)
            p = p-next;
        remove(p);
        return true;
  }
 
  void showList (TListlist)
  {
    if (list ==NULL)если список не заполнен ничего кроме сообщения не покажем
        {
            coutFail!List clear!end1;
            return;
        }
        while (list != NULL)двигаемся по списку и выводим пока елемент не будет равен нул
        {
            printData(list-data);
            list = list-next;
        }
  }
 
   void clearList( TList &list) очищаем список
   {
        if (list ==NULL) return;
        while (list-next !=NULL)
        {
            list = list-next;
            delete list-prev;
            list-prev = NULL;
        }
   }
 
   void mergeList( Tlist &head1, TList &head2)  обьеденение списков
   {
        if (head1== NULL  head2 == NULL) если какой то из списков пуст
        {
                coutFail!No information!end1;
                return;
        }
        while (head-next != NULL)двигаемся по списку
                head1 = head1-next;
 
        head1-next = head2;обьеденяем списки
        head2-prev = head1;
 
        moveToHead(head1); двигаемся в начало
 
   }
 
 void menu()
{
SetConsoleCP(1251);
       SetConsoleOutputCP(1251);
 
 cout===========Меню============end1;
cout  1. Добавить в конец спискаend1;
cout  2. Вставить в указанную позициюend1;
cout  3. Удалить 1 елемент спискаend1;
cout  4. Удалить из указанным порядковым номеромend1;
cout  5. Обьеденитьend1;
cout  6. Вывод у противоположном направлении елементы спискаend1;
cout  7. Форматированый выводend1;
cout  c. Очистить весь списокend1;
cout  0. Выходend1;
cout==========================end1;
 }
void main()
{
        setlocate(0, .866);
        TList head1;  создание первого списка
        head1 = NULL;
        TList head2; создание второго списка
        head2 = NULL;
 
        int ind, nList;
        char tmp;
        menu();
        while(true)
{
        tmp = getch();
        switch (tmp)    выбор от нажатия
        {
        case '1'
                coutВведите номер списка = ; cinnList; если нажата клавиша 1
                if (nList == 1) addToTail(head1);
                else
                        addToTail(head2);
                system(PAUSE);
                coutend1;
                break;
 
        case '3'
                coutВведите номер списка = ; cinnList; если нажата клавиша 1
                if (nList == 1) deleteFirst(head1);
                else
                        deleteFirst(head2);
                system(PAUSE);
                coutend1;
                break;
 
                
        case '4'
                coutВведите номер списка = ; cinnList; если нажата клавиша 1
                if (nList == 1) deleteAt(head1);
                else
                        deleteAt(head2);
                system(PAUSE);
                coutend1;
                break;
 
 
         case '5'
                mergeList(head1, head2);
                system(PAUSE);
                coutend1;
                break;
          case '0' return;
         case 'c' clearList(head1); clearList(head2);system(PAUSE);
                        break;
         }
}
 
 
---------------------------------------------------------------------------

TList* next; //указатель на след.елем списка