Замените все четные числа, стоящие в нечетных строках на сумму элементов массива. Делать через двумерный массив — Pascal(Паскаль)

uses wincrt;

const
  nmax = 20;

var
  a: array [1 .. nmax, 1 .. nmax] of integer;
  i, j, n, s: integer;

begin
  clrscr;
  randomize;
  write('Vvedite n<', nmax, ': ');
  read(n);
  writeln('Ishodniy massiv: ');
  s := 0;
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i, j] := random(10);
      write(a[i, j]:5);
      s := s + a[i, j];
    end;
    writeln;
  end;
  writeln('Summa massiva = ', s);
  for i := 1 to n do
  begin
    for j := 1 to n do
      if odd(i) and (a[i, j] mod 2 = 0) then
        a[i, j] := s;
  end;
  writeln('Poluchenniy  massiv: ');
  for i := 1 to n do
  begin
    for j := 1 to n do
      write(a[i, j]:5);
    writeln;
  end;

end.