программа массива

вычислить сумму отрицательных элементов всех нечетных столбцов двумерного массива. Массив А, m строк, n столбцов
без рандомных.
по типу
PROGRAM VLOM2;
VAR
A:ARRAY[1..12, 1..13] OF INTEGER;
KNCH,I,Y,S,N,M: INTEGER;
BEGIN
WRITELN ('ВВЕДИ КОЛИЧЕСТВО СТРОК И СТОЛБЦОВ МАССИВА A');
READLN(M,N);
WRITELN('ВВЕДИ ЭЛЕМЕНТЫ МАССИВА А');
FOR I:=1 TO M DO
FOR Y:=1 TO N DO
READ(A[I,Y]);
S:=0;
FOR I:=1 TO M DO
FOR Y:=1 TO N DO

IF(A[I,Y] MOD )
THEN
BEGIN
S:=S+A[I,Y];
KNCH:=KNCH+1;
END;
WRITE('S=',S,' KNCH=', KNCH);
END.