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

Const  amax=20;
var  a: array[1..amax,1..amax] of integer; 
i,j,k,n,m: byte;
begin 
write(Введите размеры массива(матрицы (lt;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.