Уменьшить перебор (поиск числа с наибольшим числом делителей)

var
    m      : longint;
    max    : longint;
    count  : longint;
    number : longint;
    i      : longint;
 
function getDiv(number: longint): longint;              // найти количество делителей
var
    count: longint;
    i: longint;
 
begin
 
    count := 0;
 
    for i := 1 to number div 2 do
 
        if number mod i = 0 then count := count + 1;
 
    getDiv := count + 1;
 
end;
 
begin
 
    read(m);
    max := 0;
 
    for i := 1 to m do
    begin
 
        count := getDiv(i);
 
        if max < count then
        begin
 
            max := count;
            number := i;
 
        end;
 
    end;
 
    writeln(number);
    writeln(max);
 
end.

function DivCount(const x: LongInt): Word;
var
    Result: Word; //удалить строку при ошибке повторного идентификатора
    i: LongInt;
begin
    Result := 2;
    for i := 2 to Trunc(Sqrt(x)) do
        if (x mod i = 0)
        then
            Inc(Result);
    DivCount := Result;
end;
var
    i, m, maxn: LongInt;
    max, current: Word;
begin
    Write('m='); ReadLn(m);
    max := 0;
    for i := 1 to m do
    begin
        current := DivCount(i);
        if (current > max)
        then
        begin
            max := current;
            maxn := i;
        end;
    end;
    if (max > 0)
    then
    begin
        WriteLn('count=', max, ', number=', maxn);
    end
    else
        WriteLn('ERROR!');
end.

function KolDel(n:integer):integer;
var i,k:integer;
begin
k:=2; //1 и само число
for i:=2 to trunc(sqrt(n)) do //остальные делители
if n mod i=0 then inc(k,2);
if frac(sqrt(n))=0 then dec(k);//если число полный квадрат, то минус 1
result:=k;
end;