программа паскаль. Помогите пожалуйста!!!
в каждом столбце матрицы подсчитать количество парных и не парных елементов

const  amax=20;var  a: array[1..amax,1..amax] of integer;  i,j,k,n,m: byte;begin  write('Введите размеры массива(матрицы (<20)):');  readln(n,m);  writeln('Массив(матрица):');  for i:=1 to n do  begin    for j:=1 to m do    begin      a[i,j]:=random(99)+1;      write(a[i,j]:4);    end;    writeln;  end;  writeln('Кол-во четных элементов по колонкам:');  for j:=1 to m do  begin    k:=0;    for i:=1 to n do      if odd(a[i,j])=false then inc(k);    writeln('В ',j,' столбце ',k);  end;  writeln('Конец программы!');end.