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

[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={и три строчки,которые вы видите выше)................
Помогите, пожалуйста. Заранее спасибо!!!!!

[Depression period]

..............спасибо........ .............я постараюсь сделать..........

[Depression period]

ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!!!!!!!

Я постаралась и попробовала сделать эту задачу методом процедур, но комп выдает какие-то ошибки, исправьте, пожалуйста.........Мне очень нужно, эта задача последняя, а последний раз сдачи зачета в четверг....................
ПОЖАЛУЙСТА.........
решение ниже..........

Код

uses
  Sysutils;

const
   n=7;
   m=5;
type
   a = array[1..n] of integer;
   b = array[1..m] of integer;
procedure Input(var m1 : a; m2 : b);
var
   i : byte;
begin
   for i := 1 to n do  begin

       write('m[',i,']=');
       readln(m1[i]);
    end;
   writeln;
begin
for i := 1 to m do  begin

       write('m[',i,']=');
       readln(m2[i]);
    end;
   writeln;
end; end;


procedure InputRnd(var m1 : a; m2 : b);
const rnd = 100;
var
   i: byte;
begin
   randomize;
   for i := 1 to n do

     m1[i] := random(rnd);
     randomize;
     for i:=1 to m do
     m2[i] := random(rnd);
     writeln('Ishodniy massiv');
      end;


procedure Print(m1 : a; m2 : b);
var
   i : byte;
begin
   for i := 1 to n do begin
      writeln;
      write(m1[i]:3,'  ');
   end;
   writeln;
   readln;
   for i := 1 to m do begin
      writeln;
      write(m2[i]:3,'  ');
   end;
   writeln;
   readln;
end;

procedure Reform(var m1 : a; m2 : b);
var
   i,j : byte;
   p,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;

var
   m1 : a;
   m2 : b;
   p:integer;
   z : byte;

begin

   repeat

      writeln('1 - Input ');
      writeln('2 - Input RND');
      writeln('3 - Print');
      writeln('4 - Reform');
      writeln('5 - Quit');

      readln(z);

      case z of
       1 : Input(m1, m2);
       2 : InputRnd(m1, m2);
       3 : Print(m1, m2);
       4 : Reform(p);
     end;
   until z=5;

end.