Сжать одномерный массив состоящий из n вещественных элементов, удалив из него все элементы, модуль которых находится в интервале[a,b]. Освободившиеся в конце массива элементы заполнить нулями. На Delphi. Помогите пожалуйста.

Решение в прикрепленном файле.Ввод - вывод программы:число элементов массива:  5массив: 89.67  18.56  87.21  77.68  51.00 диапазон:  10 80новый массив:   89.67  87.21   0.00   0.00   0.00