Разработка программы с использованием созданной по условию процедуры - Turbo Pascal

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

На основе матрицы A (4 строки, 5 столбцов) сформировать одномерный массив В из 5 элементов, каждый элемент которого принимает значение 1, если в соответствующем по номеру столбце матрицы A элементы расположены в порядке возрастания их значений, и значение 0 в противном случае. Для проверки упорядоченности элементов по возрастанию в произвольном столбце матрицы использовать процедуру.

Решение задачи: «Разработка программы с использованием созданной по условию процедуры»

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

const n=5;
type TMatrix = array [1..4,1..n] of Integer;
procedure IsAsc(const a: TMatrix; c: Integer; var r: Integer);
var i: Integer;
begin
  r:=1; for i:=Low(a)+1 to High(a) do if a[i-1,c]>=a[i,c] then r:=0;
end;
var
  a: TMatrix;
  b: array [1..n] of Integer;
  j: Integer;
begin
  { ... }
  for j:=1 to n do begin IsAsc(a,j,b[j]); Write(' ',b[j]); end;
end.

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

Объявлены константа n и тип массива TMatrix.
Создана процедура IsAsc, которая принимает массив a, номер столбца c и результат r (предполагается, что r изначально равно 1).
В процедуре перебираются элементы массива a с i=Low(a)+1 до i=High(a).
Если текущий элемент a[i-1,c] больше или равен следующему элементу a[i,c], то значение переменной r меняется на 0.
После выполнения всех итераций, значение переменной r возвращается из процедуры.
В основной части программы объявлены переменные a, b и j.
Далее в цикле for j:=1 to n выполняется процедура IsAsc для каждого столбца массива a.
В качестве результата процедуры IsAsc используется переменная b[j].
Каждый элемент массива b выводится на экран с помощью Write(' ',b[j]).