Задан массив из 9 целых чисел.Вывести на экран элементы ,которые больше 15.

Program Mas; Var a:array[1..100] of integer;        i, n: integer; Begin randomize;          writeln('Введите размерность массива',n);          readln(n); for i:=1 to n do a[i]:=random(45)-1; readln; for i:=1 to n do begin if a[i]>15 then            write(' ',a[i]); end; readln; End.