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

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

begin забыли дописать, после инициализации переменных