Определите, является ли сумма элементов матрицы чётным числом

const 
  nmax=50;
type
  Tmatrix=array[1..nmax,1..nmax] of integer;
var
  a:Tmatrix;
  i,j,m,n,s:integer;
begin
  repeat
    write('Kolichestvo strok v matritse, ne bolee ',nmax,':');
    readln(n);
    write('Kolichestvo stolbtsov v matritse, ne bolee ',nmax,':');
    readln(m);
  until (n in [1..nmax]) and (m in [1..nmax]);
  randomize;
  s:=0;
  writeln('Ishodnaya matritsa:');
  for i:=1 to n do
    begin
      for j:=1 to m do
        begin
          a[i,j]:=random(50);
          write(a[i,j]:4);
          inc(s,a[i,j]);
        end;
      writeln;
    end;
  writeln;
  if not odd(s) then
    writeln('Сумма элементов матрицы явл. четным числом')
  else
    writeln('Сумма элементов матрицы не явл. четным числом');  
end.

s:=0;{обнуляем сумму}
  {Заполняем матрицу случ. значениями и считаем сумму ее элементов}
  writeln('Ishodnaya matritsa:');
  for i:=1 to n do{идем по строкам}
    begin
      for j:=1 to m do{идем по столбцам}
        begin
          a[i,j]:=random(50);{элементу матрицы с соотв. индексами присваиваем случ. значение от 0 до 49}
          write(a[i,j]:4);{выводим элемент}
          s:=s+a[i,j];{в сумму добавляем значение элемента}
        end;
      writeln;{переходим на новую строку}
    end;
  if s mod 2=0 then{если значение суммы разделилось на 2 без остатка, то сумма четна}
    writeln('Сумма элементов матрицы явл. четным числом')
  else{если c остатком, то сумма нечетна}
    writeln('Сумма элементов матрицы не явл. четным числом');