Заполнить массив из 15 элементов целыми случайными числами из диапазона от 0 до 40. вывести массив на экран и найти сумму элементов массива, минимальный элемент массива и количество чисел больше 10

Program z1;
var
a:array [1..15] of integer;
i,r:integer;begin
randomize;
for i:=1 to 15 do 
begin 
 a[i]:=random (40); 
write (a[i],' ' ); 
end;
 end.