Дан целочисленный массив x(n,m).среди элементов нечетных столбцов массива найти количество четных чисел.

// Дан целочисленный массив X(N,M).среди элементов нечетных столбцов массива найти количество четных чисел.
Program asd;
USES crt;
Const n=4;
      m=4;
VAR X:array[1..n, 1..m] of integer;
i,j,k:integer;
BEGIN
For i:=1 to n do
 begin
  For j:=1 to m do
   begin
    X[i,j]:=Random(10);
    Write(X[i,j]:3);
   end;
   Writeln;
 end;
 For i:=1 to n do
   For j:=1 to m do
    begin
      If X[i,j] mod 2 = 0 then k:=k+1;

    end;
   Writeln('Кол-во четный элементов в массиве: ',k);
END.