Среднее арифметическое положительных элементов Pascal

Условие задачи по программированию на Pascal: «Определить с помощью FUNCTION для каждого массива: Среднее арифметическое положительных элементов. Первый массив: L(17); [-3;3] Второй массив: M(28); [-2;8]»

Заказ включает: 1. Постановку задачи 2. Алгоритм решения задачи 3. Результат выполнения программы 4. Исходный код программы