Дано натуральное число, подсчитать общее количество его делителей. Помогите пожалуйста..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.