Процедуры в Pascale

[sugar11]

Помогите,пожалуйста!
Задание 1.
Создать функцию, определяющую максимальный элемент вектора vector[n], находящийся между вторым по порядку положительным и предпоследним отрицательным его элементами. Предусмотреть случай, когда таких элементов нет.

Задание 2.
Создать процедуру, поворачивающую в квадратном массиве matrixnn (n – нечетное) средний наибольший ромб элементов на 90 градусов по часовой стрелке.

P.S. Элементы исходных массивов задавать целыми случайными числами в диапазоне от v_min до v_max. Границы диапазона v_min и v_max задать с консоли. Ввод исходных данных и вывод результатов производить в головной программе.