Всем привет! подскажите решение (Pascal)

[SABIRCHICK]

Найти произведение четных и нечетных элементов массива X(n,m). Нужно чтобы выводилось в конце произведение отдельно друг от дргуа.

[Stilet]

В чем сложности?
Попытки и наработки имеются?

[newerow1989]

const n=5;
      m=3;
var p:array[1..n,1..m] of integer;
    i,j,s0,s1:integer;
begin
   Randomize;
   For i:=1 to n do
   begin
      For j:=1 to m do
      begin
         p[i,j]:=1+Random(21);
         Write(p[i,j],'  ');
      end;
      Writeln;
   end;
   Writeln;
   s0:=1;
   s1:=1;
   For i:=1 to n do
      For j:=1 to m do
         If p[i,j] mod 2=0 then
            s0:=s0*p[i,j] else
            s1:=s1*p[i,j];
   Writeln('chet = ',s0);
   Writeln('nechet = ',s1);
   Readln;
end.

Сойдет?