Найти все нечётные делители заданного числа.

Program even_factors;
var
  i, n: integer;
begin
  write(Число: );
  readln(n);
  i := 1;
  while (i * i)     begin
      if (n mod i = 0) and (i mod 2 = 1) then
        begin
          write(i, );
          if (n div i) mod 2 = 1 then
            write(n div i, );
        end;
      i := i + 1;
    end;
end.