Найти все целые числа из промежутка от а до b, у которых количество делителей равно k

uses crt;
var a,b,i,j,d,k,p:integer;
begin
repeat
writeln('Введите натуральные числа a<b');
read(a,b);
until a<b;
write('Введите количество делителей k=');
read(k);
writeln('Числа, количество делителей которых=',k);
p:=0;
for i:=a to b do
 begin
  if i=1 then d:=1
  else
   begin
    d:=2;
    for j:=2 to i div 2 do
    if i mod j=0 then d:=d+1;
   end;
  if d=k then
   begin
    p:=1;
    write(i,' ');
   end;
 end;
if p=0 then write('Таких чисел нет')
end.

Var a,b,k,k1,k2,i,j:integer;
Begin
    write('Введите [a,b]: ');readln(a,b);
    write('Введите k: ');readln(k);
    k2:=0;
    For i:=a to b do
    Begin
      k1:=2;
      For j:=2 to i div 2 do
       if i mod j = 0 then inc(k1);
      if k1=k then
      Begin
        write(i,' ');
        inc(k2);
      End;
    End;
    if k2=0 then writeln('Нету таких чисел!');
End.

Var a,b,k,k1,k2,i,j:integer;
Begin
    write('Введите [a,b]: ');readln(a,b);
    write('Введите k: ');readln(k);
    k2:=0;
    For i:=a to b do
    Begin
      if i=1 then k1:=1
       else k1:=2;
      For j:=2 to i div 2 do
       if i mod j = 0 then inc(k1);
      if k1=k then
      Begin
        write(i,' ');
        inc(k2);
      End;
    End;
    if k2=0 then writeln('Нету таких чисел!');
End.