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

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