Вычислить сумму элементов каждой строки двумерного массива - Pascal ABC

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

Задать двумерный массив m * n целых чисел m = 2, n = 3. Вычислить сумму элементов каждой строки

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

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

uses crt;
const
  m = 2;
  n = 3;
var
  A: array[1..m, 1..n] of integer;
  S: integer;
  i, j: byte;
  
begin
  writeln('ведите ', m * n, ' элементов:');
  for i := 1 to m do
    for j := 1 to n do 
      readln(a[i, j]);
  ClrScr;
  writeln('Матрица ', m, 'x', n, ':');
  for i := 1 to m do begin
    S := 0;
    for j := 1 to n do begin
      write(a[i, j]:5);
      S := S + a[i, j]
    end;
    writeln('Сумма = ':10, S)
  end
end.

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

В начале программы объявляются переменные и двумерный массив.
Задаются размеры массива m и n.
Пользователю предлагается ввести элементы матрицы.
После ввода элементов программа выводит матрицу на экран.
Для каждой строки матрицы вычисляется сумма элементов.
Сумма выводится на экран.