В матрице найти сумму каждой чётной строки и произведение элементов каждой нечётной строки

const
  n = 6; 
  m = 4; 
var reuslt:integer;
  D: array[1..n,1..m] of integer;
  A: array[1..n] of integer; 
    function multiplyRow(rowNum: integer):integer;
var i :integer;
begin
  result := D[rowNum][1]; 
    for i:=2 to m do 
      if(i mod 2 <>0) then 
        result :=result *D[rowNum][i]; 
          multiplyRow:=result 
end;
begin
  Randomize(); 
for var i:=1 to n do 
for var j:=1 to m do
D[i,j]:=Random(21)-10;
  writeln('Matrix:');
for var i:=1 to n do 
begin
  for var j:=1 to m do
    write(D[i,j]:4);
    writeln();
end;
for var i:=1 to n do 
  if(i mod 2 =0) then 
    A[i] := Sum(D[i]) 
else 
  A[i] := multiplyRow(i);
    writeln('Vector A:');
for var i:=1 to n do
  write(A[i]:4);
  writeln();
end.

const
  n = 6;
  m = 4;
var 
  D: array[1..n,1..m] of integer;
  A: array[1..n] of integer;
  i,j,s,p:integer;
 begin
  Randomize();
  writeln('Matrix:');
  for i:=1 to n do begin
      p := 1;
      s := 0;
      for j:=1 to m do begin
      D[i,j]:=Random(21)-10;
      write(d[i,j]:4);
      if odd(i) then begin p := p * d[i,j]; a[i] := p; end
                else begin s := s + d[i,j]; a[i] := s; end;
      end;
      writeln;
  end;
  writeln('Vector A:');
  for i:=1 to n do write(a[i],' ');
  readln;
 end.