Сжать одномерный массив состоящий из 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