Pascal, модули, наработок нету.

[MrDLS]

Создать функцию, вычисляющую произведение максимальных элементов массива X[1],X[2],...,X[n], которые не превосходят максимального элемента в массиве Y[1],Y[2],...,Y[n] и в то же время не меньше его минимального элемента. Использовать функцию для вычисления указанных величин для следующих двух пар массивов
1) A[1],A[2],...,A[6] ; B[1],B[2],...,B[6]
2) C[1],C[2],...,C[5] ; D[1],D[2],...,D[5].

[Хыиуду]

максимальных элементов массива X[1],X[2],...,X[n]

Массив, как я понял, одномерный. Стало быть, максимальный элемент там один. Или имеется в виду - несколько элементов с одним и тем же максимальным значением?
Поиск максимума/минимума есть в разделе алгоритмы. Сравнить два числа несложно.