Даны 2 натуральных числа. определить,какое из них имеет больше делителей. для подсчета числа делителей использовать процедуру или функцию- Pascal(Паскаль)

Uses
 CRT;
var
 n,m:integer;
 
function deli(Var n:integer):integer;
Var
 i,kol:integer;
begin
kol:=0;
for i:= 1 to n do
 if n mod i=0 then
 begin
  inc(kol);
 end;
deli:=kol;
end;
 
begin
Clrscr;
write('Vvedite n i m: ');
readln(n,m);
if deli(n)>deli(m) then
 writeln('1-e')
else
if deli(n)<deli(m) then
 writeln('2-e')
else
 writeln('Nikakoe');
readkey
end.