Заполнить массив случаными числами из промежутка 1-100 и определить их в массиве: количество двузначных чисел кратных 3
(Pascal)
Я написал программу,но она не работает, в чем может быть проблема?

program dz2;
const n = 10;
var a:array[1..n] of integer;
var i,s:integer;
s: = 0;
randomize:
for i: = 1 to n do
a[i]: = random(100)+1;
for i: = 1 to n do
writeln(a[i]);
for i: = 1 to n do
if a[i] mod 3 = 0 then
s: = s+1
writeln(s);
end.