Найти номер первого столбца, не содержащего ни одного элемента кратного 2. - Pascal ABC

var
  a: array [1..100, 1..100] of integer;
  n, i, j, k: integer;
 
begin
  writeln('Введите размерность квадратной матрицы:');
  write('N = ');
  readln(n);
  writeln('Введите значения матрицы:');
  for i := 1 to n do
    for j := 1 to n do
    begin
      write('A[', i, ',', j, '] = ');
      readln(a[i, j]);
    end;
  k := 0;  
  for j := 1 to n do
  begin
    for i := 1 to n do
      if a[i, j] mod 2 = 0 then 
        break 
      else 
        k := k + 1;
    if k = n then 
    begin
      writeln('Первый столбец не содержащий ни одного элемента кратного 2 = № ', j);
      break; 
    end 
    else 
      k := 0;
  end;
end.