Составить подпрограмму определения суммы элементов одномерного массива. Используя ее, вычислить сумму элементов матрицы - Turbo Pascal

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

Помогите, пожалуйста написать программу в TP. Составить подпрограмму определения суммы элементов одномерного массива. Используя ее, вычислить сумму элементов матрицы.

Решение задачи: «Составить подпрограмму определения суммы элементов одномерного массива. Используя ее, вычислить сумму элементов матрицы»

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

uses crt;
type mas=array[1..15] of integer;
     mtr=array[1..10] of mas;
function summa(a:mas;n:integer):integer;
var i,s:integer;
begin
s:=0;
for i:=1 to n do
s:=s+a[i];
summa:=s;
end;
var a:mtr;
    m,n,i,j,s:integer;
begin
clrscr;
randomize;
repeat
writeln('Введите размеры матрицы m,n');
readln(m,n);
until(m in [2..10])and(n in [2..10]);
writeln('Матрица');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(20);
    write(a[i,j]:3);
   end;
  writeln;
 end;
s:=0;
for i:=1 to m do
s:=s+summa(a[i],n);
write('Сумма элементов матрицы=',s);
readln
end.

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

Объявлены типы данных: массив одномерный (mas), массив двумерный (mtr).
Определена функция summa для вычисления суммы элементов одномерного массива.
В основной программе объявлены переменные: a (двумерный массив), m, n, i, j, s (одномерный массив).
Пользователю предлагается ввести размеры матрицы m, n.
Введенные значения размеров сохраняются в переменных m, n.
Выводится сообщение о вводе размеров матрицы.
В цикле выводятся элементы матрицы a размером m на n.
В цикле вычисляется сумма элементов каждой строки матрицы a и сохраняется в переменную s.
Выводится сообщение о сумме элементов матрицы.
Программа ожидает ввода с клавиатуры для завершения работы.