В заданном интервале целых натуральных чисел от N до M, найдите число которое имеет наибольшее число делителей. Если таких чисел несколько, то вывести нужно наименьшее из этих чисел. в паскале

var m,n,j,i,c,max,o:integer;beginreadln(n,m);for i:= m downto n do beginfor j:=1 to i div 2 doif i mod j = 0 then c:=c+1;if c>=max then begin max:=c; o:=i; end;c:=0;end;writeln(o);end.