Найти сумму и количество положительных элементов массивов - Free Pascal

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

Найти сумму и количество положительных элементов Массивов А(3,5) и В(5,5)

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

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

type mtr=array[1..5,1..5] of integer;
procedure matrix(var a:mtr;m,n:byte;c:char);
var i,j:byte;
begin
writeln('Матрица ',c);
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=-10+random(21);
    write(a[i,j]:4);
   end;
  writeln;
 end;
end;
function summa(a:mtr;m,n:byte):integer;
var i,j:byte;
    s:integer;
begin
s:=0;
for i:=1 to m do
for j:=1 to n do
s:=s+a[i,j];
summa:=s;
end;
function positive(a:mtr;m,n:byte):byte;
var i,j,k:byte;
begin
k:=0;
for i:=1 to m do
for j:=1 to n do
if a[i,j]>0 then inc(k);
positive:=k;
end;
var a,b:mtr;
begin
matrix(a,3,5,'A');
writeln('Сумма элементов=',summa(a,3,5));
writeln('Количество положительных=',positive(a,3,5));
matrix(b,5,5,'B');
writeln('Сумма элементов=',summa(b,5,5));
writeln('Количество положительных=',positive(b,5,5));
end.

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

Объявление типа массива mtr и процедуры matrix.
Инициализация массива a случайными значениями от -10 до 10.
Вывод на экран матрицы a с помощью цикла for и вложенного цикла for.
Объявление функции summa для нахождения суммы элементов матрицы a.
Два вложенных цикла for для прохода по всем элементам матрицы a и суммирования их значений.
Возвращение суммы элементов матрицы a в качестве результата функции summa.
Объявление функции positive для нахождения количества положительных элементов матрицы a.
Два вложенных цикла for для прохода по всем элементам матрицы a и подсчета количества положительных значений.
Возвращение количества положительных элементов матрицы a в качестве результата функции positive.
Создание двух массивов a и b размером 3x5 и 5x5 соответственно.
Вызов функции matrix для вывода матрицы a на экран.
Вызов функции summa для нахождения суммы элементов матрицы a.
Вывод значения суммы элементов матрицы a на экран.
Вызов функции positive для нахождения количества положительных элементов матрицы a.
Вывод значения количества положительных элементов матрицы a на экран.
Вызов функции matrix для вывода матрицы b на экран.
Вызов функции summa для нахождения суммы элементов матрицы b.
Вывод значения суммы элементов матрицы b на экран.
Вызов функции positive для нахождения количества положительных элементов матрицы b.
Вывод значения количества положительных элементов матрицы b на экран.