Напишите программу, которая заполняет массив случайными числами на отрезке [2; 10] и считает отдельно количество четных и нечетных элементов

Const n=10;
var a:array[1..n] of integer;
k,i:integer;
begin
Randomize;
for i:=1 to n do begin
 a[i]:=random(9)+2;
 write(a[i],' ');
 end;
writeln;
k:=0;
for i:=1 to n do
 if a[i] mod 2 = 0 then k:=k+1;
writeln('Четных: ',k,'  нечётных: ',n-k);
end.

Пример:
2 2 4 7 9 10 9 4 5 4
Четных: 6 нечётных: 4