Hola asmr,
Aqui te envio un codigo que creo que soluciona tu problema. No obstante no he hecho y el programa principal ni lo he probado.. Esta hecho para arrays de diez elementos. Si quieres cambiar el tamaño no tienes mas que cambiar el numero que marca el tamaño del array en manipulando_datos.ads
un saludito
1. fichero datos.ads