Listas y punteros como los ordeno?

[delphi]

Buenos días a todos, en esta ocasión, vengo a pedirles su ayuda, ya que no logro comprender la lógica de reparar u ordenar esta lista que esta con 2 punteros, asi mismo también si es posible necesito que me expliquen como se lograría reparar u ordenar con un sólo puntero, adjunto unas imágenes para que me entiendan que es lo que necesito, comienzo:
En laIMAGEN 1 aparecen un monton de lineas que necesito eliminar para lograr llegar a la forma correcta o sea a la IMAGEN 2, lo que no entiendo como es que voy a ir quitando las lineas que estan enrredadas y dejarlas como la IMAGEN 2 y al final he agregado la salida que representaría en código como estaría correcta la lista. muchas gracias por sus aportes y ayuda