Дано натуральное число. Найти кол-во цифр данного числа. Верно ли что данное число на нечетную цифру — Pascal(Паскаль)

var
a,kol:integer;
begin
readln(a);
repeat
a:=a div 10;
inc(kol);
until a<10;
writeln('kol-vo cifr=',kol+1;
if ord(a)then writeln('yes')else writeln('no');
readln;
end.