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

program Project1;
 
const
  MAX = 10;
type
  mas = array[1..MAX] of Integer;
 
function Count(const x: mas; const n, v : Integer) : Integer;
var
  i, Res : integer;
begin
  Res := 0;
  for i := 1 to n do
    if x[i] mod v = 0  then
      Res := Res + 1;
  Count := Res;
end;
 
var
  i, Cnt : Integer;
  Arr : mas;
begin
  Writeln('Исходный массив:');
  Randomize;
  for i := 1 to MAX do begin
    //0..9.
    Arr[i] := Random(10);
    if i > 1 then Write(', ');
    Write(Arr[i]);
  end;
  Writeln;
 
  Cnt := Count(Arr, MAX, 2);
 
  Writeln('Количество элементов, кратных числу 2 = ', Cnt);
 
  Readln;
end.