Вопрос Помогите написать программу на паскале, а то отчислят.

Даны два вещественных вектора А и В. Логической переменной С присвоить значение TRUE, если у вектора А количество положительных элементов больше, чем у вектора В, и значение FALSE в противном случае.
P.S. желательно сделать программу использую подпрограммы (нужна программа полностью, а не советы как её сделать).