Pascal/Turbo Pascal - Algoritmo que determine cual es el mayor y el menor de números narcisistas ingresados

Dado una secuencia de números naturales, hasta que se ingrese un cero, construya un algoritmo que determine cual es el mayor y el menor de números narcisistas ingresados, según la definición dada a continuación. Número narcisista: todo número de k dígitos que cumple que es igual a la suma de las potencias k de sus dígitos es un número narcisista. Por ejemplo, 153 es un número narcisista de 3 dígitos, ya que 1** 3+5**3+3**3= 1 + 125+27 = 153
Probar para los número : 601- 4150 – 406 – 371 – 25 – 153 – 370 - 7507