¿Alguien me puede ayudar con un problema que tengo en un ejercicio utilizando ADA?

El programa coge una lista de numeros de un archivo y los ordena según un parámetro declarado (si el parámetro es por ejemplo "4" ordenará la lista de la siguiente forma: numeros menores a 4 a la izquierda, numeros iguales a cuatro en medio y numeros mayores a 4 a la derecha)

Todo me funciona perfectamente exceptuando si utilizo el valor 0, que se vuelve loca la cosa.

Gracias de antemano!