С помощью рекурсии без операторов цикла и перехода написать процедуру P(N)

[WhyBeNormal]

С помощью рекурсии без операторов цикла и перехода написать процедуру P(N), где N - Integer, которая считает количество делителей у этого числа без учета его самого и 1.

[capta1n]

Вот процедура:

procedure inte (n : integer; var count : byte; i : byte); { n - число, count - счетчик делителей; i : счетчик рекурсии ( деление на очередное число ) }
begin
  if i=round(n/2) then exit { Если счетчик достиг половины от числа n, заканчиваем рекурсию }
  else { Иначе продолжаем считать }
  begin
    inc(i); {Следующее число}
    if n mod i = 0 then inc(count); { Если остаток от деления равен нулю - значит это делитель }
    inte (n,count,i) { Переход к следующему рекурсионному циклу }
  end
end;

А вот программа для теста процедры:

var
 m : integer;
 x : byte;
begin
  readln (m);
  x:=0;
  inte(m,x,1); { Задаем само число, счетчик, в который передастся значение количества делителей и начальное положение делителя }
  writeln (x);
  readln
end.