Составьте программу, которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 1 до 10 и находит количество элементов с четными значениями.

Что тут не правильного?

Program zad2a;
Var a:array[1..10]of integer;
i:integer;
begin
for i:=1 to 10 do a[i]:=random(10)+1;
for i:=1 to 10 do begin
if a[i] mod 2 = 0 then
end;
writeln(a[i],' ');
end.