Дан двухмерный массив A[m,n]. Составить одномерный массив из номеров столбцов исходного двухмерного массива, в котором все элементы нечетные — Pascal(Паскаль)

program PascalGuru;

var
  A: array [1 .. 50, 1 .. 50] of integer;
  B: array [1 .. 50] of integer;
  i, j, n, m: integer;
  k: integer;
  nec: boolean;

begin
  write('m = ');
  readln(m);
  write('n = ');
  readln(n);

  for i := 1 to m do
    for j := 1 to n do
    begin
      write('A[', i, ',', j, ']=');
      readln(A[i, j]);
    end;
  writeln;
  write('vvedennyi massiv: ');
  for i := 1 to m do
  begin
    writeln;
    for j := 1 to n do
      write(A[i, j]:3, ' ');
  end;

  k := 0;

  for j := 1 to n do
  begin
    nec := true;
    for i := 1 to m do
      if A[i, j] mod 2 = 0 then
        nec := false;

    if nec then
    begin
      inc(k);
      B[k] := j;
    end;
  end;

  writeln;
  writeln('Massiv B:');
  for i := 1 to k do
    write(B[i]:3, ' ');

  readln;

end.