нужно срочно, к 3 уроку. заранее спасибо) дан двумерный массив размером 5*6, заполненный целыми числами. сформировать одномерный массив, каждый элемент которого равен произведению четных положительных элементов соответствующего столбца.

program mass;

uses
  crt;

var
  mas: array [1..5, 1..6] of integer;
  mas_od: array[1..6] of integer;
  i, j: integer;

begin
  randomize;
  for i := 1 to 5 do
    for j := 1 to 6 do
      mas[i, j] := random(10)-5;
 
  for i := 1 to 5 do
  begin
    for j := 1 to 6 do
      write(mas[i, j]:4);
    writeln;
  end;
  writeln('----------------------------');
   for i := 1 to 5 do
  begin
    mas_od[i] := 1;
    for j := 1 to 6 do
    begin
      if((mas [i, j] mod 2 = 0) and (mas[i, j] > 0)) then
        mas_od[i] := mas_od[i] * mas[i, j];
    end;
  end;
for i:=1 to 6 do  write(mas_od[i]:4);
writeln;
end.

мог индексы не там поставить...точнее не в той последовательности....)))