Задача, Pascal

[Artijam]

Помогите с программой. "Задайте массив из 10 элементов с помощью датчика случайных чисел. Найдите среднее арифметическое четных элементов массива. Выведите на экран исходный массив и полученное среднее арифметическое."

var a:array [1..10] of integer;
i:integer;
begin
for i:=1 to 10 do

Начал я вот так. Не знаю, правильно или нет. Помогите дописать.

[Zer0]

сначала массив заполните, а потом....

sum:=0;
count:=0;
for i:=1 to 10 do if a[i] mod 2 = 0 then begin
sum:=sum+a[i];
inc(count);
end;
sum:=sum/count;
writeln (sum);