Заполнить двумерный массив n*n числами с клавиатуры и найти сумму элементов массива нечётных столбцов

Const n=3; var a: array[1..n] of array[1..n] of integer; i,j,s: integer; begin s: =0; for i: =1 to n do begin for j: =1 to n do begin readln(a[i,j]); end; end; for i: =1 to n do begin if i mod 2 = 1 then for j: =1 to n do begin s: =s+a[i,j]; end; end; writeln(s); end.