Задача(Вычисление произведения элементов массива) Опции

[Depression period]

Помогите пожалуйста с задачей.....
Решить:
1) С использованием подпрограммы-функции
2)С использованием подпрограммы-процедуры


Исходные данные вводятся с клавиатуры и с использованием генератора случайных чисел.Выбор способа получения исходных данных осуществляется с использованием меню после запуска программы на выполнение.

Задача(Вычисление произведения элементов массива) :

Заданы массивы а={A1 , ... , An} , b={B1 , ... , Bm} и числа n и m.
Определить

n
П Ai , при А1>B1;
i=1

m
П Bi ,при A1<B1;
i=1

k
П (Ai+Bi) , при A1=B1 и k=min{n,m}.
i=1


(это все что написано выше система, т.е. C={и три строчки,которые вы видите выше)................
Помогите, пожалуйста. Заранее спасибо!!!!!

[volvo]

Переписываешь Reform так:

procedure Reform(m1 : a; m2 : b; var p: integer);
var
   i,j : byte;
   k:integer;
begin
   p:=1;
   if m1[1]>m2[1] then
   for i:=1 to n do p:=p*m1[i]
   else if m1[1]<m2[1] then
   for j:=1 to m do p:=p*m2[i]
   else begin
   k:=n;
   if m<k then k:=m;
   for i:=1 to k do p:=p*(m1[i]+m2[i]);
   end;
   writeln('Sdelano. Podtverdit i vivesti...');
   readln;
end;

и вызываешь так:

      case z of
       1 : Input(m1, m2);
       2 : InputRnd(m1, m2);
       3 : Print(m1, m2);
       4 : Reform(m1, m2, p); { <--- Вот так !!! }
     end;

В остальном проблем быть не должно, компиляцию программа проходит...

[Depression period]

Да, она запускается..........и все бы ничего, но почему-то второй массив m2 выводится всегда состоящий только из нулей, а после Reform при нажатии Print должно выводится значение произведения 'p' но оно не выводится, вместо него только массив m1 и весь из нулей m2.......
Помогите, в чем ошибка?