Массив из 15 элементов заполнить случайным образом в диапазоне [0..100].вывести на экран все элементы массива меньшие 33. (pascal)

Var a,b,c:integer;
d:array [1..100] of integer;
begin
randomize;
for a:=1 to 15 do begin
d[a]:=random(100);
if d[a]<33 then writeln('элемент массива меньше 33 ==> ',d[a])
end;
end.