Блок-схема функции - Pascal

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

Здравствуйте. Правильно ли я сделал блок-схему функции?

function summ (): single;
var
summ_mass : single;
i : byte;
 
begin
 
summ_mass := 0;
for i:= 1 to 7 do
begin
if tmass[i] > 0 then
begin
summ_mass := tmass[i] + summ_mass;
summ := summ_mass;
writeln(tmass[i],' + ',summ_mass, ' = ', summ_mass);
end
end
end;

И когда нужно использовать блок когда строишь блок-схему самой функции? Или когда в основной программе вызываешь эту функцию? То есть когда пишешь summ () в основ. программе, там и используется этот блок?

Решение задачи: «Блок-схема функции»

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

function summ (var a: mass): single;
var
summ_mass : single;
i : byte;
 
begin
 
summ_mass := 0;
for i:= 1 to 7 do
begin
if a[i] > 0 then
begin
summ_mass := summ_mass + a[i];
summ := summ_mass;
writeln(summ_mass);
end
end
end;

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

В данном коде представлена функция с именем summ, которая принимает на вход переменную a типа mass и возвращает результат в виде числа с плавающей точкой (типа single).
Внутри функции объявлены две переменные: summ_mass типа single и i типа byte.
Переменная summ_mass инициализируется значением 0 и используется для хранения суммы элементов массива a.
Переменная i используется в цикле и итерируется от 1 до 7.
Внутри цикла проверяется условие if a[i] > 0, и если оно истинно, то выполняется следующая последовательность действий:
- значение переменной a[i] прибавляется к переменной summ_mass;
- значение переменной summ_mass присваивается переменной summ;
- значение переменной summ_mass выводится на экран с помощью функции writeln.
По завершении цикла выполняется выход из функции с возвратом значения переменной summ.