Вычисление суммы элементов массива по строкам - Pascal

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

Задан массив {ai,j}, i=1,2, …,n , j=1,2, …,m размером n x m. Составить программу вычисления сумму элементов массива по строкам и вывести на печать в общепринятом виде.

Решение задачи: «Вычисление суммы элементов массива по строкам»

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

program pr;
const
Csize=100;
var
  i, n, m, sum, j: integer;
  a: array [1..Csize, 1..Csize] of integer;
begin
  writeln('Введите количетсов строк матрицы');
  readln(n);
  writeln('Введите количетсов столбцов матрицы');
  readln(m);
  for i := 1 to n do
    for j := 1 to m do
      a[i, j] := random(21);
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(a[i, j]:3);
    writeln;
  end;
  for i := 1 to n do
  begin
    sum := 0;
    for j := 1 to m do
    begin
      sum := sum + a[i, j];
    end;
    writeln('Сумма элементов ', i, ' строки: ', sum);
  end;
end.

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

Объявление переменных:
- Csize - константа, значение 100
- i, n, m, sum, j - целочисленные переменные
- a - двумерный массив размером Csize x Csize
Ввод размеров матрицы:
- Вывод сообщения Введите количетсов строк матрицы
- Считывание значения в переменную n (количество строк)
- Вывод сообщения Введите количетсов столбцов матрицы
- Считывание значения в переменную m (количество столбцов)
Заполнение массива:
- Цикл по переменной i от 1 до n
  - Вложенный цикл по переменной j от 1 до m
  - Присвоение случайного значения от 0 до 20 элементу массива a[i, j]
Вывод матрицы:
- Цикл по переменной i от 1 до n
  - Вложенный цикл по переменной j от 1 до m
  - Вывод элемента массива a[i, j] с выравниванием по 3 символа
  - Переход на новую строку
Вычисление суммы элементов по строкам:
- Цикл по переменной i от 1 до n
  - Обнуление переменной sum
  - Вложенный цикл по переменной j от 1 до m
  - Прибавление значения a[i, j] к переменной sum
  - Вывод сообщения о сумме элементов i-ой строки: значение переменной sum
Конец программы.