Заполнить массив случайными числами (положительными и отрицательными) из случайного спектра. Вывести

var a:array [1..100] of integer; //массив чисел
i,nech,kr3:integer; //итератор массива, число нечетных чисел, число чисел, кратных трем
begin
randomize; // функция для использования случайных чисел
for i:= 1 to 100 do
begin
a[i]:= random(100)-50; //заполнение массива случайными числами, в том числе и отрицательными
if (a[i] mod 2 =1) and ((a[i] mod 3 = 0)then inc(kr3); // подсчет чисел, кратных трем
if (a[i] mod 3 = 0) then inc(nech); // подсчет нечетных чисел
end;
for i:=1 to 100 do
write(a[i], ); //вывод частей массивов
writeln;
writeln(kr3, ,,nech, ,, 100); // вывод ответов на задачку
end.