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

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

Для всех вариантов: - Ввести произвольную размерность квадратной матрицы в интервале 1..10. - Предложить ввод данных (чисел целого типа) двумя способами: 1. Через датчик случайных чисел на интервале -100..100. 2. С клавиатуры в виде «Х[i],[j]=», где i и j – числа, соответствующие номеру строки и столбца. - После окончания ввода данных вывести на экран матрицу в отформатированном виде по строкам и столбцам. Например: 2 5 -12 11 18 3 23 -31 72 - Обработать данные согласно заданию в варианте и вывести результат. - Если результатами вычислений являются вещественные числа, то выводить их с точностью до 2-х знаков после точки. - Вектор (одномерный массив) можно не создавать, а сразу выводить результаты на печать. Задание:Найти минимальные элементы в каждой строке. Найти максимальный из этих элементов

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

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

var a:array[1..10,1..10] of integer;
    n,k,i,j,mn,mx:integer;
begin
repeat
write('Введите размер матрицы от 1 до 10 n=');
readln(n);
until n in [1..10];
repeat
writeln('Выберите способ ввода данных 1-датчик случайных чисел 2-с клавиатуры');
readln(k);
until k in [1,2];
if k=1 then
 begin
  randomize;
  for i:=1 to n do
  for j:=1 to n do
  a[i,j]:=-100+random(201);
 end
else
 begin
  for i:=1 to n do
  for j:=1 to n do
   begin
    write('a[',i,',',j,']=');
    readln(a[i,j]);
   end;
 end;
writeln('Матрица');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:5);
  writeln;
 end;
writeln('Минимальные элементы строк');
for i:=1 to n do
 begin
  mn:=a[i,1];
  for j:=2 to n do
  if a[i,j]<mn then mn:=a[i,j];
  write(mn:5);
  if i=1 then mx:=mn else if mn>mx then mx:=mn;
 end;
writeln;
write('Из них максимальный=',mx);
end.

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

Этот код написан на языке Pascal и выполняет следующие действия:

Запрашивает у пользователя размер матрицы от 1 до 10 и сохраняет его в переменной n.
Запрашивает у пользователя способ ввода данных: случайные числа или с клавиатуры. Сохраняет ответ в переменной k.
Если k равно 1, то генерируются случайные числа для заполнения матрицы.
Выводит матрицу, запрашивая у пользователя значения элементов и сохраняя их в массиве a.
Выводит минимальные элементы строк матрицы, начиная с первого элемента и последовательно перебирая остальные строки.
Обновляет минимальное значение mn и максимальное значение mx среди текущих минимальных значений строк.
Выводит максимальное значение mx.