Дан массив X (N, M). найти колличество отрицательных и положительных элементов среди нечетных столбцов массива

var x : array [1 ... 1000, 1 ... 1000] of integer; n, m, i, k, o, p : integer; begin o : = 0; p : = 0; readln (n, m); for i : = 1 to n do for k : = 1 to m do begin read (x[i, k]); if k mod 2 0 then if x[i, k] > 0 then p : = p + 1 else if x[i, k] < 0 then o : = o + 1; end; write ('Количество отрицательных чисел = ', o, ', количество положительных чисел = ', p) end.