Написать процедуру/функцию определения суммы отрицательных элементов заданного одномерного массива — Pascal(Паскаль)

type 
  myArray = array [1..n] of integer;
 
function sum(a: myArray) : integer;
var
  i : integer;
begin
  sum := 0;
  for i := 1 to n do
     if (a[i] < 0) then  
       sum := sum + a[i];
end;