Написание процедуры с масивом, Процедура и массив Опции

[Ranger]

Народ! помогите составить процедуру подсчета суммы значений элементов в одномерном массиве и
...с помощью этой процедуры сосчитать суммы элементов строк произвольно заданной матрицы А

все что получилось это посчтитать сумму в одномерном массиве, но как связать это с процедурой, я надеюсь узнать ...

Код

program sum;
var
sum:real;
element:array[1..7]of real;
i:integer;
begin
for i:=1 to 7 do
 begin
write(i,'=');
read(element[i]);
sum:=sum+element[i];
end;
writeln('sum=',sum);
end.