Pascal/Turbo Pascal - Intercambio de elementos en lista doble

Buenas. Necesito intercambiar los elementos adyacentes de una lista doblemente enlazada ajustando solo los punteros. Se que para ello hay que utilizar varios punteros auxiliares para no perder los nodos pero aun no he logrado hacerlo.
Apreciaria muchisimo su ayuda.
Saludos!!! Gracias!!!

entra a: http://caece.arkania.org/bibliografia.htm ahi hay unos ficheros sobre listas y memoria dinamica que te puede ser de ayuda.