Помогите докончить программу, Подпрограммы Опции

[Lolhydra]

Составьте программу двумя способами:
1) Используя подпрограмму-функцию;
2) Используя подпрограмму-процедуру.

В одномерном массиве случайных чисел P[1..10] вычислить количество элементов, кратных 2.


const n=10;
type mas=array[1..n] of integer;
function Count(a:mas):byte;
var i,k:byte;
begin
k:=0;
for i:=1 to n do
if a[i] mod 2=0 then k:=k+1;
Count:=k;
end;
procedure Count(a:mas;var k:byte);
var i:byte;
begin
k:=0;
for i:=1 to n do
if a[i] mod 2=0 then k:=k+1;
Count:=k;
end;
var a:mas;
i,k:byte;
begin
здесь нужно составить массив
вызвать функцию
write(Count(a));
вызвать процедуру
Count(a,k);
write(k);
end.