В каждом втором столбике матрицы проверить элементы на ноль - Pascal ABC

Формулировка задачи:

Заполнить матрицу случайными числами. В каждом втором столбике матрицы проверить элементы на ноль. Если этот элемент найден, то перекинуть этот столбик в новую матрицу. Должно выглядеть так:

Решение задачи: «В каждом втором столбике матрицы проверить элементы на ноль»

Листинг программы

const m = 7;
 
var a: array [1..m, 1..m] of integer;
    b: array [1..m, 1..m div 2] of integer;
    i, j, k, n: integer;
begin
  randomize;
  writeln('Source matrix:');
  for i := 1 to m do
    begin
      for j := 1 to m do
        begin
          a[i, j] := random(19) - 9;
          write(a[i, j]:3)
        end;
      writeln
    end;
  k := 0;
  for j := 1 to m div 2 do
    for i := 1 to m do
      if a[i, j * 2] = 0
        then begin
          inc(k);
          for n := 1 to m do b[n, k] := a[n, j * 2];
          break
        end;
  writeln('Even columns with zero elements:');
  if k = 0
    then writeln('Not found.')
    else for i := 1 to m do
      begin
        for j := 1 to k do write(b[i, j]:3);
        writeln
      end;
  readln
end.

Объяснение кода листинга программы

Создаётся матрица размером m x m, где m - 7.
Переменная a содержит матрицу, а переменная b содержит копию матрицы a, где каждый элемент в каждой второй строке скопирован в соответствующий элемент в первой половине матрицы b.
Используется цикл for для заполнения матрицы a случайными числами от 0 до 18.
Используется вложенный цикл for для проверки каждого элемента в каждой второй строке матрицы a на равенство нулю.
Если элемент равен нулю, увеличивается счетчик k.
Если все элементы во всех строках равны нулю, выводится сообщение Not found.
Если хотя бы один элемент не равен нулю, выводится сообщение Even columns with zero elements:.
Используется еще один вложенный цикл for для вывода элементов матрицы b, которые соответствуют элементам в первой половине матрицы a, где каждый элемент соответствует элементу в той же позиции в матрице a.
Выводится номер строки, в которой был найден первый ненулевой элемент (если он был найден).