Заполнить массив случайными числами в интервале [-1,1] и подсчитать количество нулевых элементов

Var
  i,a:integer;
  m:array[1..10] of integer;
begin
  randomize;
  for i:=1 to 10 do
  begin
    m[i]:=random(2)-1;
    if m[i]=0 then a:=a+1;
  end;
 
  writeln(a);
end.