В матрице найти сумму и произведение элементов главной диагонали

program lab6;
uses crt;
var
matr:array[1..5,1..5] of integer;
i,j,P,S:integer;
begin
clrscr;
writeln('vvedite elementy matr');
for i:=1 to 5 do
for j:=1 to 5 do
begin
gotoxy(12+4*i,9+2*j);
readln (matr[i,j]);
end;
P:=1;
for i:=1 to 5 do
begin
S:=S+matr[i,i];
P:=P*matr[i,i];
end;
for i:=1 to 5 do
for j:=1 to 5 do
if i mod 2>0 then
matr[i,j]:=matr[i,j]+S;
if i mod 2>0 then
matr[i,j]:=matr[i,j]*P;
writeln('Pol Matr');
for i:=1 to 5 do
for j:=1 to 5 do
begin
gotoxy(45+4*i,9+2*j);
writeln(matr[i,j]);
write ('S=',S);
write ('P=',P);
end;
readln;
readkey;
end.

const
  n = 5;
var
  Matr: array[1..n, 1..n] of longint;
  Proizv, Summa: longint;
  i, j: byte;
begin
  randomize;
  Proizv:=1;
  writeln('Матрица: ');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      Matr[i, j]:=random(5)+1;
      write(Matr[i, j]:4);
      if (i = j) then
      begin
        Summa:=Summa+Matr[i, j];
        Proizv:=Proizv*Matr[i, j];
      end;
    end;
    writeln;
  end;
  writeln('Сумма элементов главной диагонали: ', Summa);
  writeln('Произведение элементов главной диагонали: ', Proizv);
  writeln('Новая матрица: ');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      if odd(i) then Matr[i, j]:=Matr[i, j]*Summa;
      if not odd(j) then Matr[i, j]:=Matr[i, j]*Proizv;
      write(Matr[i, j]:8);
    end;
    writeln;
  end;
end.