Pascal/Turbo Pascal - ayuda con este algoritmo de ordenacion

Filtrado por el usuario: jose
<<>>
Filtrado por el usuario 'jose' (Eliminar fitro)
 
Vista: