Дан массив а [1..10]. найти кол-во чётных элементов.

Program P1;
var a:array[1..10] of integer;    
i, kolvo  :integer;
procedure kolvo1;    
begin     kolvo:=0;    
for i:=1 to 10 do        
if (i mod 2 = 0) then kolvo:=kolvo+1;    
end;
begin    
for i:=1 to 10 do        
readln(a[i]);    
kolvo1;    
writeln(kolvo);    
readln();
end.