Посчитать сколько нечетных цифр в n значном числе! (паскаль)

Program zadanie;
var i,n,a:integer;
begin
readln(n);
for i:=1 to n do
begin
if(i mod 2)=1 then a:=a + 1;
end;
writeln(a);
readln;
end.
если я правильно понял то так,если нет,пиши переделаю!