ИСПОЛЬЗОВАНИЕ ПОДПРОГРАММ

[Солнышконанебе]

Помогите, пожалуйста решить задачу!
Вычислить суммы положительных элементов массивов X(60), Y(60), Z(70).

[Mad_Cat]

type mas = array[1..100] of real;
{...}
function Sum(a:mas;r:integer;):real;
var i:integer;
s:real;
begin
s:=0;
for i:=1 to r do
if a[i]>0 then s:=s+a[i];
Sum:=s;
end;

[Солнышконанебе]

Спасибо большое!