var

 res1,res2,j,n,count:integer;

//----------------------------------------------

function CountDel(n:integer):integer;

var  

 i: integer;  

begin                                      

 count:=1;                      

 for i := 1 to n div 2 do      

   if (n mod i) = 0 then  

      inc(count);              

 CountDel:=count;    

end;

//----------------------------------------------

begin

 write('Введите кол-во чисел: '); readln(n);

 res2:=0;

 for j:=1 to n do

   begin

     readln(n);

     if res2<CountDel(n) then

       begin

         res1:=n;

         res2:=CountDel(n);

       end;

   end;

 writeln('Результат:',res1, ', Делителей:',res2);

end.  

Если моё решение помогло вам, пометьте его лучшим. Спасибо!