Целые числа и вложенные циклы. Найти число, у которого количество делителей максимально

uses crt;
function Kdel(n:longint):integer;{функция подсчета дельтелей}
var i,k:integer;
begin
if n=1 then k:=1
else if n in [2,3] then k:=2{1 и само число}
else
 begin
  k:=2;{2 есть у всех}
  for i:=2 to n div 2 do
  if n mod i=0 then k:=k+1;{считаем остальные}
 end;
Kdel:=k;
end;
var a,b,i,imx,kmx,cmn,cmx,f:longint;
begin
repeat
writeln('Введите диапазон натуральных чисел 0<a<b:');
read(a,b);
until(a>0)and(b>a);
f:=0;{1 или несколько}
kmx:=0;{макс. число делителей}
cmn:=b;{минимальное число}
cmx:=a;{максимальное число}
for i:=a to b do
if Kdel(i)>kmx then{если больше всех}
 begin
  kmx:=Kdel(i);{запомним число делителей}
  cmx:=i;{максимальное}
  cmn:=i;{минимальное}
  f:=1;{число пока 1}
 end
else if Kdel(i)=kmx then{если равно макс.}
 begin
  f:=2;{не одно}
  if i<cmn then cmn:=i{если меньше числа с макс. числом делителей}
  else if i>cmx then cmx:=i;{если больше}
 end;
if f=1 then
writeln('Числo с максимальным числом делителей единственное, оно=',cmx)
else if f=2 then
 begin
  writeln('Числo с максимальным числом делителей не единственное');
  writeln('Минимальное=',cmn,' максимальное=',cmx);
 end;
end.