Найти номера строк заданной целочисленной матрицы A(N, M), в которых:а) на всех нечётных позициях стоят нули;б) на нечетных позициях встречаются нули — Pascal(Паскаль)

var
  i, j, k, kk, m, n: integer;
  a: array [1 .. 20, 1 .. 20] of integer;

begin
  write('Введите число строк n=');
  readln(n);
  write('Введите число столбцов m=');
  readln(m);
  write('Заполните массив:');
  for i := 1 to n do
    for j := 1 to m do
    begin
      write('Введите a[', i, ',', j, ']=');
      readln(a[i, j]);
    end;
  kk := m div 2; { кол-во нулей для условия а) }
  for i := 1 to n do
  begin
    j := 1;
    k := 0; { счётчик кол-ва нулей }
    repeat
      if a[i, j] = 0 then
        k := k + 1;
      j := j + 2;
    until j >= m;
    if k > 0 then
    begin
      if k <> kk then
        s := 'б)'
      else
        s := 'б) и а)';
      writeln('Для строки No ', i, ' выполнены условия: ', s);
    end
  end;

end.