Не могу разобраться с парочкой задач. Кому не трудно помогите плиз

Задачи с процедурами, мне нужно в текстовом файле сама процедура от Rrogram_№ до end.
1. Для массива С из N элементов составить процедуру определяющую кол-во положительных значений f(ci) и кол-во отрицательных f(cj).
2. Составить процедуру , вычислить значения TRUE если все элементы одномерного массива упорядочены по убыванию. и вычислить FALSE в противоположном случае. (по возрастанию).
Используя эту процедуру расчитать заданный массив ТА, если его элементы не упорядочены в порядке убывания. В противоположном случае вывести сообщение "упорядоченно" .
ТА=(4;2;3;15;3;0,05;-2,4;1;0,1528;-12,77)
Заранее огромное спасибо!