[C++] Шейкер-сортировка двусвязного списка

[Attenti_ON]

Здравствуйте!
У меня возникла проблема с сортировкой двусвязного списка.

Получилось реализовать двусвязный список и отдельно Шейкер-сортировку (массива).

Помогите, пожалуйста, отсортировать список!

При сортировке элементов списка нужно использовать не перестановку значений полей данных, а изменение значений полей указателей (перенаправление связей между звеньями списка)

Вот мой список:

#include <vcl.h>
#pragma hdrstop
#include <iostream.h>
#include <conio.h>
//---------------------------------------------------------------------------
struct Color
{
	int Name;
	Color *Next;
        Color *Pred;
};
Color *Head = NULL;
Color *Rear = NULL;
Color *Ptr = NULL;

//-------------------------------------------------------------------
void Create(int Name)
{
	Color *NewPtr;
	NewPtr = new Color;
	if (!Head) Head = NewPtr;
	else Rear->Next = NewPtr;
        NewPtr->Pred = Rear;
        NewPtr->Name = Name;
        NewPtr->Pred=Rear;
        Rear = NewPtr;
	Rear->Next = NULL;
}
//---------------------------------------------------------------------
void Print(void)
{
	Color *Index = Head;
	while (Index)
	{
		cout << Index->Name << endl;
		Index = Index -> Next;
	}
	cout<<endl;
}
//--------------------------------------------------------------------
void Clear()
{
Rear == NULL;
	while (Head)
	{
		Ptr = Head -> Next;
		delete Head;
		Head = Ptr;
	}
}
//----------------------------------------------------------------------------
#pragma argsused
int main(int argc, char* argv[])
{
char newname[10];
Create(6);
Create(2);
Create(3);
Create(5);
Create(3);
Create(2);
Create(9);
Create(1);

Print();
cout<<endl;
Clear();
getch();
	return 0;
}

И реализация Шейкер-сортировки:

int ilast = n - 1;
int ll = 1;
int kk = n - 1;
  do {
         for (j = kk; j >=ll; j--)
           if (a[j-1]>a[j])
             {
                temp = a[j];
                a[j] = a[j-1];
                a[j-1] = temp;
                ilast = j;
             }
        ll = ilast + 1;
         for (j = ll; j<=kk; j++)
           if (a[j-1]>a[j])
             {
                temp = a[j];
                a[j] = a[j-1];
                a[j-1] = temp;
                ilast = j;
             } 
        kk = ilast - 1; }
   while (ll < kk);