Массив: Найти номер первого из ее столбцов, содержащих только нечетные числа - Pascal ABC

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

program qq;
var
   mas:array [1..100,1..100] of integer;
   m,n,i,j:integer;
   o,e:integer;
begin
     cls;
     readln(m,n);
     randomize;
//Ввод элементов массива
       for i:=1 to m do
       for j:=1 to n do
       mas[i,j]:=random (100);
//Печать матрицы
         for i:=1 to m do
begin
     writeln;
     for j:=1 to n do
     write(mas[i,j],' ');
end;
    e := 0;
    for i:=1 to N do
    for j:=1 to M do
    if not odd(mas[i,j]) then
begin
     e := e + 1;
     if (e+o) mod M = 0 then
     writeln;
end;
    writeln('Четное: ',e);
    writeln;
end.

Решение задачи: «Массив: Найти номер первого из ее столбцов, содержащих только нечетные числа»

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

program qq;
 
var
  mas: array [1..100, 1..100] of integer;
  m, n, i, j: integer;
  o, e: integer;
 
begin
  readln(m, n);
  randomize;
  //Ввод элементов массива
  for i := 1 to m do
    for j := 1 to n do
      mas[i, j] := random(100);
  //Печать матрицы
  for i := 1 to m do
  begin
    writeln;
    for j := 1 to n do
      write(mas[i, j]:5);
  end;
  e := 0;
  for j := 1 to m do
  begin
    o := 0;
    for i := 1 to n do
      if odd(mas[i, j]) then
        inc(o);
    if o = n then
    begin
      e := j;
      break;
    end;      
  end;
  writeln;  
  if e <> 0 then
    writeln('Номер первого из столбцов, содержащих только нечетные числа: ', e)
  else
    writeln('Нет таких столбцов');
end.

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

В данном коде объявлены следующие переменные:

mas: массив размером 100x100, который будет использоваться для хранения чисел.
m и n: два целых числа, которые определяют размер массива и количество строк в нем соответственно.
i и j: два целых числа, которые будут использоваться для перебора строк и столбцов массива.
o и e: два целых числа, которые будут использоваться для поиска первого столбца, содержащего только нечетные числа. Далее происходит ввод элементов массива с помощью функции randomize, которая генерирует случайные числа от 0 до 99. Затем происходит печать матрицы, где каждый элемент выводится через пробел, разделенный символом табуляции. После этого начинается цикл, который перебирает все строки массива. Для каждой строки перебираются все столбцы. Если число в текущем столбце является нечетным, то увеличивается счетчик o. Если после прохода по всем столбцам значение o равно n (количество столбцов), то это означает, что найден первый столбец, содержащий только нечетные числа. В этом случае значение переменной e присваивается значению j, и цикл прерывается с помощью оператора break. После завершения внутреннего цикла выводится сообщение, указывающее номер первого такого столбца, если он был найден. Если таких столбцов нет, выводится сообщение об отсутствии таких столбцов.