паскаль. написать пограмму которая наполняет массив случайными числами от 1 до

Паскаль. написать пограмму которая наполняет массив случайными числами от 1 до 10. в ряду 10 чисел. вот программка:
var a: array [1..10] of integer;
i:integer;
begin randomize;
for i:= 1 to 10 do
begin
a[i]:=random (11);
write ( a[i]:4);
end;
end.
Задание: дописать эту программку, чтоб она выдавала кол-во четных и нечетных образцов массива.