В массиве из 13 элементов найти сумму положительных элементов кратных 3- Pascal(Паскаль)

const n=13;
var a:array[1..n]of integer;
i:byte; sum:integer;
begin
randomize;
for i:=1 to n do begin
a[i]:=random(26)-10;
writeln(a[i]);
end;
sum:=0;
for i:=1 to n do
if (a[i]>0) and (a[i] mod 3=0) then
sum:=sum+a[i];
writeln(sum);
end.