Найти минимальный среди максимальных элементов строк - Pascal

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

найти минимальный среди максимальных элементов строк

Решение задачи: «Найти минимальный среди максимальных элементов строк»

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

  mm:=a[1,1];
  for j:=2 to n do if mm<a[1,j] then mm:=a[1,j];
  for i:=1 to m do begin
    t:=a[i,1];
    for j:=2 to n do if t<a[i,j] then t:=a[i,j];
    if t<mm then mm:=t;
  end;
  WriteLn(mm);

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

Создается переменная mm и присваивается значение первого элемента массива a: mm:=a[1,1];
В цикле от 2 до n происходит проверка каждого элемента строки на условие mm<a[1,j], и если условие выполняется, значение mm обновляется: for j:=2 to n do if mm<a[1,j] then mm:=a[1,j];
Затем происходит проход по каждой строке массива, где переменной t присваивается значение первого элемента строки: t:=a[i,1];
Во внутреннем цикле от 2 до n происходит проверка каждого элемента строки на условие t<a[i,j], и если условие выполняется, значение t обновляется: for j:=2 to n do if t<a[i,j] then t:=a[i,j];
Затем проверяется условие t<mm, и если оно выполняется, значение mm обновляется значением t: if t<mm then mm:=t;
Наконец, выводится минимальное из максимальных значений элементов строк: WriteLn(mm);