заменить нулями те числа, величина которых по модулю больше максимального числа

Напишите плз на Паскале
В массиве состоящем из положительных и отрицательных чисел, заменить нулями те числа, велечина которых по модулю больше миксимального числа.