составить программу которая выводит 10 случайных чисел , меньше десяти ?

Линейный массивprogram prog;const      N=10;var     a : array [1..N] of integer;     i : integer;begin     randomize;     for i:=1 to N do     a[i]:=random(10);        writeln;     for i:=1 to N do        write(a[i]:2) ;     writeln;end.