Pascal/Turbo Pascal - Ordenacion de listas

Hola:
Intento aplicar los algoritmos de ordenacion para ordenar listas, pero no soy capaz, me entra en un bucle infinito, me podeis ayudar?

Escribe por acá el código que habías hecho.

Saludos ;-)