Найти количество положительных элементов матрицы А, расположенных в нечетных столбцах (доделать программу)

program q6;
 
var
  n, i, j, d: integer;
  a: array[1..20, 1..20]of real;
 
begin
  writeln('Ввести размер матрицы-? '); read(n);
  d := 0;
  for i := 1 to n do
    for j := 1 to n do
    begin
      a[i, j] := exp(sin(i*pi / 4)) - exp(cos(j*pi/4));
      if (j mod 2 <> 0) and (a[i, j] > 0) then //вот тут что-то неверно
        d := d + 1;
    end;
  writeln('d=', d);
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      write(a[i, j]:6:3, ' ');
    
    end;
    writeln();
  end;
end.

var a: array[1..10, 1..10]of real;
    n, i, j, d: integer;
begin
  repeat
  writeln('Ввести размер матрицы от 2 до 10 n=');
  readln(n);
  until n in [2..10];
  d := 0;
  for i := 1 to n do
   begin
    for j := 1 to n do
     begin
      a[i, j] := exp(sin(i*pi / 4)) - exp(cos(j*pi/4));
      write(a[i,j]:6:3);
      if (j mod 2 <> 0) and (a[i, j] > 0) then //вот тут что-то неверно
      d := d + 1;
    end;
   writeln;
  end;
writeln('Количество положительных элементов в нечетных столбцах=',d);
end.