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

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.