Нужна прога на паскале, please

Найти К-количество элементов, чей модуль превышает велечину max+min/2, если К превышает количество К (количество отрицательных элементов массива) , то заменить отрицательные элементы велечиной max+min/2, в противном случае поменять местами максимум и минимум.