Даны два одномерных целочисленных массива. Напишите программу, которая с помощью подпрограмм находит произведение нечётных элементов массивов — Pascal(Паскаль)

program p10;

type
  massiv = array [1 .. 100] of integer;

var
  A1, A2: massiv;
  i, j: integer;
  n1, n2: integer;

function pr_nec(m: massiv; n: integer): integer;
var
  i, j, pr: integer;
begin
  pr := 1;
  for i := 1 to n do
    if odd(m[i]) then
      pr := pr * m[i];
  pr_nec := pr;
end;

begin
  writeln('Vvedite PERVYI massiv:');
  write('ego razmer "n": ');
  readln(n1);
  for i := 1 to n1 do
  begin
    write('A1[', i, ']=');
    readln(A1[i]);
  end;
  writeln('_______________________');

  writeln('Vvedite VTOROI massiv:');
  write('ego razmer "n": ');
  readln(n2);
  for i := 1 to n2 do
  begin
    write('A2[', i, ']=');
    readln(A2[i]);
  end;
  writeln('_______________________');
  writeln;
  writeln('Vi vveli:');
  write('A1: ');
  for i := 1 to n1 do
    write(A1[i], ' ');
  writeln;
  write('A2: ');
  for i := 1 to n2 do
    write(A2[i], ' ');
  writeln;
  writeln;
  writeln('Proizvedenie iz A1= ', pr_nec(A1, n1));
  writeln('Proizvedenie iz A2= ', pr_nec(A2, n2));

  readln;

end.