Дано натуральное число, подсчитать общее количество его делителей.
Помогите пожалуйста..pascal

Большое спасибо)

var n, i, number:integer;begin     readln(n);     number := 1;                   {т.к. само число является своим делителем}     for i := 1 to n div 2 do       {т.к. делителей больше половины чила ровно}           begin                               {один, который мы уже учли}          if n mod i = 0          then             number := number + 1;     end;     writeln(number);end.