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

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