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

function IsNul(var a: myArr; len: integer): integer;
var
  count, i: integer;
begin
  count:=0;
  for i:=1 to len do
  begin
    if ( a[i] = 0 ) then
      inc(count);
  end;
 NotNul:=count;
end;