Определить, чего больше в матрице целых чисел - четных или нечетных

uses crt;
var a: array [1..5,1..5] of integer;
    i,j,kc,kn: integer;
begin
writeln('Дана матрица');
for i:=1 to 5 do
    begin
    for j:=1 to 5 do
        begin
        a[i,j]:=random(19)-9;
        write(a[i,j]:3);
        if a[i,j] mod 2=0 then inc(kc) else inc(kn);
        end;
    writeln;
    end;
writeln('Количество   четных=',kc);
writeln('Количество нечетных=',kn);
if kc=kn then writeln('Количество четных и нечетных равно') else
   if kc>kn then writeln('Четных больше') else
      writeln('Нечетных больше');
end.

program prj;
uses crt;
var i, j, chet, nechet: byte; a: array[1..5,1..5] of byte;
begin
  Randomize;
  WriteLn('Сформируем матрицу размерностью 5х5.');
  for i:= 1 to 5 do
  begin
    for j:= 1 to 5 do
    begin
      a[i,j]:= Random(8)+1;
      if a[i,j] mod 2 = 0 then
        chet:= chet + 1
      else
        nechet:= nechet + 1;
      Write(a[i,j]:2);
    end;
    WriteLn();
  end;
  WriteLn('Количество четных чисел = ', chet);
  WriteLn('Количество нечетных чисел = ', nechet);
  if chet > nechet then
    WriteLn('В матрице 5х5 четных чисел больше, чем нечетных.')
  else
    WriteLn('В матрице 5х5 нечетных чисел больше, чем четных.');
end.