Создать массив а из 10 целых чисел принадлежащих промежутку [0,20], вывести полученный массив и посчитать произведение элементов меньших 10

Program n1; const n=10; var a: array[1..n] of integer; i: integer; p: real; begin randomize; p:=1; for i:=1 to n do begin a[i]:=random(21); write(a[i],' '); if a[i]<10 then p:=p*a[i]; end; writeln; write(p); end.