Помогите срочно, пожалуйста!!

[Мультяшка]

Мой преподаватель по основам программирования преподаёт плохо в надежде на то, что бедные студенты отвалят ему деньжат на сессии!!
Я не хочу так делать и прошу вас помочь!!

Решите мне, пожалуйста, задачу в Паскале. В обычном паскале.

Оформить в виде функции и процедуры.
Заполнить случайными числами из [0;9] вектор b 1*6. Вывести его на экран. Найти произведение элементов, меньших числа С.

[Chudo4258]

write('n= '); readln(n);
write('C= '); readln(C);
P:=1;
for i:=1 to n do
begin
 B[i]:=randam(10);
 writeln('B[',i,']= ',B[i]);
 if B[i]<C then P:=P*B[i];
end;
writeln('P= ',P);

[Мультяшка]

Это понятно. С помощью ПРОЦЕДУР! И ФУНКЦИЙ!
Нужно 2 программы.

[Chudo4258]

program Project2;
type mas= array [1..100] of integer;
Procedure XXX(var A:mas; n,C:integer; var P:integer);
var j:integer;
begin
for j:=1 to n do
begin
 A[j]:=random(10);
 if A[j]<C then P:=P*A[j];
end;
end;
var B:mas;
    i,n,P,C:integer;
begin
randomize;
write('n= '); readln(n);
write('C= '); readln(C);
P:=1;
XXX(B,n,C,P);
for i:=1 to n do
 writeln('B[',i,']= ',B[i]);
writeln('P= ',P);
readln
end.

[Мультяшка]

Спасибо!!!)