Помогите решить, очень надоНайти количество делителей естественного числа, великих К (К

Program del;
uses crt;
var N,K,i,m:integer;
begin
write( 'введите число N=' ); readln(N);
write( 'введите ограничитель делителей (Klt;N) K=' ); readln(K);
for i:=K+1 to N do
    if  N mod i = 0  then m:=m+1;
writeln( 'количество делителей числа N=' ,N, '  равно m=', m);
readln
end.