Задание,сделать процедуру,которая высчитывает Сумму всех элементов массива.
Я реализовал вот так:

Ну мне кажется можно как-то это сделать без присваивания локальному массиву глобального .
Если написать функцию такого вида (a,n:integer;Var summ) ,где а это массив,а n кол-во элементов массива и не добавлять локальный массив,то будет ругаться на строку summ:=summ+a[i];
Может массив можно как-то по особенному объявить в скобках обращения к процедуре?