Дан массив mxn, вывести на экран нечетные столбцы массива — Pascal(Паскаль)

const 
m=4;
n=10;
var
a:array[1..m,1..n] of integer;
i,j:integer;
begin
for i:=1 to m do
    begin 
        for j:=1 to n do
          begin
            a[i,j]:=random(40);
            write('  ',a[i,j]:3);
          end;
        writeln();
    end;
writeln('--------') ; 

for i:=1 to m do
 begin
  for j:=1 to n do
  if odd(j) then write(a[i,j]:4);
  writeln;
 end;
 

writeln('--------') ; 


end.