Составить программу, которая находит строки с наибольшей и наименьшей суммой элементов - Turbo Pascal

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

Дана прямоугольная матрица размера m×n. Составить программу, которая находит строки с наибольшей и наименьшей суммой элементов. Вывести найденные строки и суммы их элементов.

Решение задачи: «Составить программу, которая находит строки с наибольшей и наименьшей суммой элементов»

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

uses crt;
const
m=15;
n=10;
type mas=array[1..m,1..n] of integer;
var a:mas;
i,j, Smax, Smin, S, NomMax, NomMin:integer;
begin
  Smax:=0;
  Smin:=1000;
  randomize;
  writeln('Исходная матрицв');
  for i:=1 to m do
    begin
      for j:=1 to n do
        begin
          a[i,j]:=random(19);
          write(a[i,j]:3);
        end;
        writeln;
    end;
  for i:=1 to m do
    begin
      S:=0;
      for j:=1 to n do
        S:=S+a[i,j];
        if S>Smax then
          begin
            Smax:=S;
            NomMax:=i;
          end;
        if S<Smin then
          begin
            Smin:=S;
            NomMin:=i;
          end;
    end;
    writeln;
    writeln('Строка с наибольшей суммой элементов:');
    for j:=1 to n do
      write(a[NomMax,j]:3);
    writeln (' Сумма элементов = ',Smax:4);
    writeln;
    writeln('Строка с наименьшей суммой элементов:');
    for j:=1 to n do
      write(a[NomMin,j]:3);
    writeln (' Сумма элементов = ',Smin:4);
 
end.

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

Создается переменная m со значением 15.
Создается переменная n со значением 10.
Создается тип данных mas, который представляет собой массив целых чисел размером от 1 до m на 1 до n.
Создается переменная a типа mas.
Инициализируются переменные Smax, Smin, S, NomMax и NomMin со значениями 0, 1000, 0, 1 и 1 соответственно.
Выводится сообщение Исходная матрица.
Запускается цикл for i := 1 to m do, который выполняется m раз.
Внутри цикла for i := 1 to m do запускается вложенный цикл for j := 1 to n do, который выполняется n раз.
Внутри вложенного цикла for j := 1 to n do присваивается значение a[i,j] переменной a[i,j].
После окончания вложенного цикла выводится значение переменной a[i,j].
После окончания внешнего цикла выводится сообщение Строка с наибольшей суммой элементов:.
Выводится значение переменной a[NomMax,j] для каждой переменной j от 1 до n.
Выводится значение переменной Smax.
Выводится сообщение Строка с наименьшей суммой элементов:.
Выводится значение переменной a[NomMin,j] для каждой переменной j от 1 до n.
Выводится значение переменной Smin.