Задан целочисленный массив размера N. Найти число частей в массиве кратных

Program col;
var
  arr: array [1..10] of integer;
  i,n,col: integer;
begin
randomize;
n:=10;
col:=0;
for i:=1 to n do begin
    arr[i]:=random(100);
    if arr[i] mod 2=0 then col:=col+1;
    write(arr[i],',');
end;
  writeln;
  writeln('количество частей кратных двум ', col);
  readln;
end.