Подсчитать количество элементов массива, с четными номерами (Delphi)

[Shoshona]

Подсчитать количество элементов массива, с четными номерами, меньших а.
(Массив real, вывод сделать в StringGrid!)

[Mad_Cat]

for i:=1 to n do begin
if (i mod 2 =0) and (M[i]<a) then inc(k);//Подсчитать количество элементов массива, с четными номерами, меньших а.
sg.cells[i,0]:=FloatToStr(M[i]);//вывод сделать в StringGrid!
end;
Form.Caption:=IntToStr(k);

[Stilet]

И в чем тут сложность?