Вычислить сумму и среднее арифметическое элементов всех нечетных строк матрицы

uses crt;
const n=6; m=5;
var a:array[1..n,1..m]of integer;
i,j,s:integer;
p:longint;
 
begin
 clrscr;
 randomize;
 writeln('Исходная матрица');
 for i:=1 to n do
 begin
  for j:=1 to m do
  begin
   a[i,j]:=-50+random(100):
   write(a[i,j]:3);
  end;
  writeln;
 end;
 
 s:=0;
 for i:=1 to n do if i mod 2=1 then for j:=1 to m do s:=s+a[i,j];
 writeln('Сумма элементов всех нечётных строк равна ',s);
 writeln('Среднее арифметическое равно ',(s/m/(i div 2+i mod 2)):0:4);
  
 p:=1;
 for i:=1 to n do for j:=1 to m do if a[i,j]<>0 then p:=p*a[i,j];
 writeln('Произведение P равно ',p);
 
 a[3,3]:=p;
 
 writeln('Полученная матрица');
 for i:=1 to n do
 begin
  for j:=1 to m do write(a[i,j]:3); writeln;
 end;
 
 readln;
end.

uses crt;
const n=3;
      m=4;
var a:array[1..n,1..m] of integer;
    i,j,sum,p,k:integer;
    sr:real;
 begin
  Writeln('Введите матрицу!');
   for i:=1 to n do
    for j:=1 to m do
     begin
       Write('a[',i,',',j,']->');
       Readln(a[i,j]);
     end;
  Writeln('----------------');
  sum:=0;
  p:=1;
   for i:=1 to n do
    for j:=1 to m do
     if i mod 2<>0 then
      sum:=sum+a[i,j];
      k:=k+1;
      sr:=sum/k;
   for i:=1 to n do
    for j:=1 to m do
     if a[i,j]<>0 then
      p:=p*a[i,j];
   a[3,3]:=p;
      for i:=1 to n do
    begin
    for j:=1 to m-1 do
     Write(a[i,j]:6);
     Writeln(a[i,m]:6);
 end;
   Writeln('Среднее арифметическое ',sr:3:2);
  Readln;
 end.