В массивах X(60) и Y(30) подсчитать суммы и количества положительных элементов - Turbo Pascal

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

Вот собственно и задача))) В массивах X(60) и Y(30) подсчитать суммы и количества положительных элементов.

Решение задачи: «В массивах X(60) и Y(30) подсчитать суммы и количества положительных элементов»

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

uses crt;
const m=60;
      n=30;
type mas=array[1..m] of integer;
procedure Massiv(var a:mas;k:byte;c:char);
var i:byte;
begin
writeln('Массив ',c);
for i:=1 to k do
 begin
  a[i]:=-5+random(11);
  write(a[i]:4);
 end;
writeln;
end;
procedure SumKol(a:mas;k:byte; var sum:integer;var kol:byte);
var i:byte;
begin
sum:=0;
kol:=0;
for i:=1 to k do
if a[i]>0 then
 begin
  sum:=sum+a[i];
  kol:=kol+1;
 end;
end;
 
var x,y:mas;
    i,j,k1,k2:byte;
    s1,s2:integer;
begin
clrscr;
randomize;
Massiv(x,m,'X');
SumKol(x,m,s1,k1);
writeln('Сумма положительных=',s1,' количество=',k1);
writeln;
Massiv(y,n,'Y');
SumKol(y,n,s2,k2);
writeln('Сумма положительных=',s2,' количество=',k2);
writeln;
readln
end.

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

Создаются две переменные типа mas с именами x и y, которые представляют собой массивы размером 60 и 30 соответственно.
Создается процедура Massiv, которая принимает в качестве параметров массив a, указатель k и строку c. Внутри этой процедуры выводится сообщение о том, какой массив обрабатывается, а затем выполняется цикл for, в котором для каждого элемента массива a выводится его значение.
Создается процедура SumKol, которая принимает в качестве параметров массив a, указатель k, переменные sum и kol и выполняет следующие действия: внутри цикла for происходит проверка условия if a[i] > 0 then, после чего переменная sum увеличивается на значение a[i] и переменная kol увеличивается на 1.
В основной части кода создаются две переменные x и y типа mas, инициализированные нулевыми значениями. Затем вызываются процедуры Massiv и SumKol для массивов x и y соответственно, после чего выводятся результаты.
Конец программы.