Дан массив 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 lt;gt; 0 then if x[i, k] gt; 0 then p := p + 1 else if x[i, k] lt; 0 then o := o + 1; end; write(Количество отрицательных чисел = , o, , количество положительных чисел = , p) end.