Заполнить массив произвольными числами. вывести полученный массив на экран. ( delphi7).

Program Project1;
const  N = 10;
var  a :array [1..N] of integer; 
i :integer;
begin
randomize; 
for i := 1 to N do   
a[i]:= random(100); 
for i := 1 to N do   
write(a[i],' ');
end.