Даны два массива. В первом найти произведение четных, во втором - нечетных и сравнить их

s1:=1;
if a[i] mod 2=0 then begin
s1:=s1*a[i];

s2:=0
if b[i] mod 2=1 then begin
s2:=s2+a[i];

uses crt;
const N=10;
var i:integer;
prch,prnech : real;
mas1: array [1..N] of integer;
mas2: array [1..N] of integer;
begin
Randomize;
prch:=1;
prnech:=1;
Write ('1-ый исходный массив: ');
For i:=1 to N do
Begin
mas1[i]:=Random(10)+1;
write(mas1[i], ' ');
End;
Writeln;
Write ('2-ый исходный массив: ');
For i:=1 to N do
Begin
mas2[i]:=Random(10)+1;
write(mas2[i], ' ');
End;
Writeln;
Writeln;
Writeln('Четные элементы массива: ');
For i:=1 to N do
Begin
if (mas1[i] mod 2 = 0) then
Begin
prch:=prch*mas1[i]; write(mas1[i], ' ');
End;
End;
Writeln;
Writeln('Нечетные элементы массива: ');
For i:=1 to N do
if (mas2[i] mod 2 = 1) then
Begin
prnech:=prnech*mas2[i];  write(mas2[i], ' ');
End;
writeln;
writeln;
writeln('Произведение четных элементов: ', prch);
writeln('Произведение нечетных элементов: ', prnech);;
writeln;
if (prch > prnech) then writeln('Произведение четных элементов БОЛЬШЕ произведения нечетных');
if (prch < prnech) then writeln('Произведение четных элементов МЕНЬШЕ произведения нечетных');
if (prch = prnech) then writeln('Произведения элементов 2-ух массивово РАВНЫ');
end.