СРОЧНО Помогите написать программу в Pascal(Зарание спасибо!)

a: array[0..9] jf real;
randomize;
for i:=0 to 9 do begin
a:= rnd(1)*10+5;
writeln(a[i]);
end;
ещё один цикл с if a[i]>10 then writeln (a[i])

надо создать одномерный массив из 10 вещественных чисел из диапазона от 5 до 15.
потом вывести массив на экран.
и найти в этом массиве количество элементов, больших 10.

if a[i]>10 then k:=k+1;