делители,функций

[Sha[D]oW]

помогите пожалуйста,пропустил 2 лекции по болезни,теперь сижу на контрольной не могу сделать,сама задача. найти числа из промежутка [a,b],у которых больше всего делителей.(реализовать функцию,вычисляющую количество делителей число)

[Mad_Cat]

function GetDelCount(n:integer):integer;
var i,c:integer;
begin
c:=2;
for i:=2 to n-1 do
if (n mod i=0) then inc(c);
GetDelCount:=c;
end;

использование

x:=a;
for i:=a+1 to b do
if getDelcount(i)>getDelcount(x) then x:=i;

[Sha[D]oW]

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