К элементам, стоящим на главной диагонали матрицы, добавить соответствующие минимальные элементы строк - Pascal

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

Если сумма минимальных элементов столбцов превышает максимальный элемент матрицы, то к элементам стоящим на главной диагонали добавить соответствующие минимальные элементы строк. В противном случае матрицу оставить без изменения.

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

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

  WriteLn('Минимальные элементы столбцов:');
  max:=a[1,1];
  for j:=1 to m do begin
    min:=a[1,j];
    for i:=1 to n do begin
      if min>a[i,j] then min:=a[i,j];
      if max<a[i,j] then max:=a[i,j];
    end;
    Write(' ',min); sum:=sum+min;
  end; WriteLn;
  WriteLn('Максимальный элемент матрицы: ',max);
  WriteLn('Сумма минимальных элементов столбцов: ',sum);
  if sum > max then ...

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

Напечатать строку Минимальные элементы столбцов:.
Присвоить переменной max значение элемента a[1,1].
Для каждого столбца j от 1 до m выполнить следующее:
1. Присвоить переменной min значение элемента a[1,j].
2. Для каждой строки i от 1 до n выполнить следующее:
  - Если min больше, чем a[i,j], присвоить min значение a[i,j].
  - Если max меньше, чем a[i,j], присвоить max значение a[i,j].
3. Напечатать значение min без перевода строки и увеличить переменную sum на min.
Напечатать перевод строки.
Напечатать строку Максимальный элемент матрицы: и значение переменной max.
Напечатать строку Сумма минимальных элементов столбцов: и значение переменной sum.
Если значение переменной sum больше чем значение переменной max, выполняется дальнейшая операция (не указана в коде).