Заполнить массив случайными числами в интервале [-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.