Матрица: получить последовательность - Pascal

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

Сабж Дана действительная матрица размера n*m. Получить последователь- ность b[1],...,b[n], где b[к] - это сумма наибольшего и наимень- шего из значений элементов К-й строки.

Решение задачи: «Матрица: получить последовательность»

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

uses crt;
var a:array[1..20,1..20] of integer;
    b:array[1..20] of integer;
    n,m,i,j,mn,mx:integer;
begin
clrscr;
randomize;
write('строк=');
readln(n);
write('столбцов=');
readln(m);
writeln('Матрица А:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(10);
    write(a[i,j]:3);
   end;
  writeln;
 end;
for i:=1 to n do
 begin
  mn:=a[i,1];
  mx:=a[i,1];
  for j:=1 to m do
   begin
    if a[i,j]<mn then mn:=a[i,j];
    if a[i,j]>mx then mx:=a[i,j];
   end;
   b[i]:=mn+mx;
 end;
writeln('Массив В:');
for i:=1 to n do
write(b[i],' ');
readln
end.

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

Объявлены переменные: n, m, i, j, mn, mx (строки и столбцы матрицы, счётчик строк и столбцов, минимальное и максимальное значение в строке) a, b (матрица и массив для вывода)
Задаются значения переменным n и m с помощью функции readln
Выводится сообщение Матрица А:
В цикле for (1..n) для каждой строки матрицы a: а) В цикле for (1..m) для каждого столбца матрицы a: б) Значение ячейки a[i,j] устанавливается равным случайному числу от 0 до 9 с помощью функции random(10) в) Значение ячейки a[i,j] выводится на экран с помощью функции write(a[i,j]:3) г) Выводится символ новой строки с помощью функции writeln
В цикле for (1..n) для каждой строки матрицы a: а) Значение ячейки a[i,1] устанавливается в качестве начального значения для переменных mn и mx б) В цикле for (1..m) для каждого столбца матрицы a: в) Если значение ячейки a[i,j] меньше значения переменной mn, то значение переменной mn устанавливается равным значению ячейки a[i,j] г) Если значение ячейки a[i,j] больше значения переменной mx, то значение переменной mx устанавливается равным значению ячейки a[i,j] в) Значение переменной b[i] устанавливается равным сумме значений переменных mn и mx
Выводится сообщение Массив В:
В цикле for (1..n) для каждого элемента массива b: а) Значение элемента b[i] выводится на экран с помощью функции write(b[i],' ')
Программа ожидает ввода с помощью функции readln