Дан двумерный массив целых чисел.Для каждого столбца выяснить имеются ли в нем нечетные элементы — Pascal(Паскаль)

Program xxx;
Uses wincrt;
Const
   n=3;
var
  A: array[1..n,1..n] of integer;
  b,i,j:integer;
Begin
  Randomize;
  For i:=1 to n do
    Begin
       For j:=1 to n do
          Begin
             a[i,j]:=Random(20+20+1)-20;
             Write(a[i,j]:5);
          End;
        Writeln;
       End;
    For j:=1 to n do
         For i:=1 to n do
             If (a[i,j] mod 2 =1) or (a[i,j] mod 2 =-1)  then
                                      writeln('Нечетный элемент в столбце ',j,':',a[i,j]:5);
Readln;
End.