Объясните программу

program pr1;
 
function pol(x: array[1..5] of integer):integer;
var a,n:integer;
begin
a:=0;
for n:=1 to 5 do
begin
if x[n]>0 then a:=a+x[n];
end;
pol:=a;
end;
 
function otr(y: array[1..7] of integer):integer;
var b,m:integer;
begin
b:=0;
for m:=1 to 7 do
begin
if y[m]<0 then b:=b+y[m];
end;
otr:=b;
end;
 
var n,m,s1,s2:integer;
z:real;
x:array [1..5] of integer;
y:array [1..7] of integer;
begin
randomize;
for n:=1 to 5 do
begin
x[n]:=random(10)-5;
write(x[n]:3);
end;
writeln;
for m:=1 to 7 do
begin
y[m]:=random(10)-5;
write(y[m]:3);
end;
writeln;
s1:=pol(x);
writeln('s1=',s1);
 
writeln;
s2:=otr(y);
writeln('s2=',s2);
 
writeln;
z:=(s1+s2)/2;
writeln('z=',z);
readln;
end.

program pr1;  //Начало программы
 
function pol(x: array[1..5] of integer):integer; //Объявление функции суммы положительных элементов
var a,n:integer; //Объявление переменных
begin
a:=0;
for n:=1 to 5 do    //В цикле проходим элементы массива
begin
if x[n]>0 then a:=a+x[n]; //Если элемент положительный(больше нуля) к переменной а прибавляем этот элемент
end;
pol:=a;  //Присваиваем результату функции переменную а(содержащую сумму)
end;
 
function otr(y: array[1..7] of integer):integer; //Объявление функции суммы отрицательных элементов
var b,m:integer;  //Объявление переменных
begin
b:=0;
for m:=1 to 7 do   //В цикле проходим элементы массива
begin
if y[m]<0 then b:=b+y[m];  //Если элемент отрицательный(меньше нуля) к переменной а прибавляем этот элемент
end;
otr:=b;   //Присваиваем результату функции переменную а(содержащую сумму)
end;
 //Начало основной программы
var n,m,s1,s2:integer;  //объявление переменных
z:real;
x:array [1..5] of integer;  //Объявление массивов х из 5 элементов и y из 7
y:array [1..7] of integer;
begin
randomize;  //Инициализация генератора случайных чисел
for n:=1 to 5 do  //В цикле пробегаем по элементам массива
begin
x[n]:=random(10)-5;   //Заполнение массива случайными числами от -5 до 4 и вывод его на экран
write(x[n]:3);
end;
writeln;  //Переход на новую строку на экране
for m:=1 to 7 do //В цикле пробегаем по элементам массива
begin
y[m]:=random(10)-5;   //Заполнение массива случайными числами от -5 до 4 и вывод его на экран
write(y[m]:3);
end;
writeln;
s1:=pol(x);//В s1 записываем сумму положительных элементов массива x 
writeln('s1=',s1);  //Выводим сумму на экран
 
writeln;  //Переход на новую строку на экране
s2:=otr(y);//В s2 записываем сумму отрицательных элементов массива y
writeln('s2=',s2);  //Выводим сумму на экран
 
writeln;  //Переход на новую строку на экране
z:=(s1+s2)/2;  //Переменной z присваиваем среднее арифметическое двух сумм
writeln('z=',z);  //И выводим его на экран
readln;  //Оператор для паузы чтобы пользователь успел увидеть результат программы
end. //Конец программы