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