Если в массиве максимальный элемент четный, найти количество четных элементов, иначе – количество нечетных

{Если в массиве максимальный элемент четный, найти количество четных
элементов, иначе - количество нечетных          }
uses
  crt;
const
  n_max=100;
  m_max=100;
var
  a:array[1..n_max,1..m_max] of integer;
  n,m,i,j,max,kn,kc:integer;
begin
  clrscr;
  randomize;
  write('Введите количество строк:    ');  readln(n);
  write('Введите количество столбцов: ');  readln(m);
  for i:=1 to n do
    begin
      for j:=1 to m do
        begin
          a[i,j]:=random(n_max) - m_max div 2;
          write(a[i,j]:4);
        end;
      writeln;
    end;
  max:=a[1,1];
  for i:=1 to n do
    for j:=1 to m do
      if a[i,j]>max then
        max:=a[i,j];
  writeln('Maximum: ',max);
  kc:=0;  kn:=0;
  if not odd(max) then
    begin
      for i:=1 to n do
        for j:=1 to m do
          if not odd(a[i,j]) then
            inc(kc);
      writeln('The number of even elements in the array: ',kc);
    end
  else
    begin
      for i:=1 to n do
        for j:=1 to m do
          if odd(a[i,j]) then
            inc(kn);
      writeln('The number of odd  elements in the array: ',kn);
    end;
  readln;
end.