Подскажите найти количество нечетных делителей числа в паскале

Var K,n,i: integer;
begin
writeln(Введите число);
readln(K); n:=0;
for i:=1 to K do
if (i mod 2=1)and(K mod i =0) then n:=n+1;
writeln(Количество нечетных делителей числа равно , n);
readln
end.                                                                                                                     Это