ПОМОГИТЕ!!! СРОЧНО НУЖНО!PASCAl

Введите с клавиатуры одномерный массив P(T), элементами которого являются положительные и отрицательные числа. Определите среднее арифметическое положительных чисел, наименьшее среди первых 9-ти чисел и частноеот деления наименьшего и среднего арифметического. Сформируйте новый массив R(F), состоящий из элементов массива P(T), которые больше найденного частного.