Найти все натуральные числа среди трехзначных, у которых количество делителей равно N — Pascal(Паскаль)

procedure poisk(n: Integer);
var
  i, j, k: Integer;
begin

  for i := 100 to 999 do
  Begin

    k := 0;
    for j := 1 to i do
      if i mod j = 0 then
        k := k + 1;

    if k = n then
      writeln(i);

  end;
end;

var
  a: Integer;

begin
  readln(a);
  poisk(a);

end.