Написать программу в Паскале. Если в данном массиве действительных чисел а1,...an есть хотя бы один член, меньший чем -

Если в данном массиве действительных чисел а1,...an есть хотя бы один член, меньший чем -2, то все отрицательные члены заменить их квадратами. Помогите пожалуйста.

Надо написать сам код программы.