Программа вывода всех натуральных чисел меньших N

[strateg66]

Программа вывода всех натуральных чисел меньших N делящихся на свои цифры без остатка, приводимые в инете программы, как правило решали ее для чисел с заранее известным числом разрядов. Приводимая программа справляется с этим недостатком.

program Project14234;

uses
  SysUtils;
var n,g,i,k,z:integer;
label m;
begin
    writeln('Введите число');
    readln(n);
    for i := 1 to n do// начинает цикл перебирающий все натуральные числа от 1 до n
     begin
     z:=i;
    while z<>0 do //цикл выбирающий цифры в числе начиная с младшего разряда
    begin
      g:=z mod 10;
      if g=0 then goto m;//если одна из цифр =0 то выход из цикла , так как на 0 делить нельзя
      k:=z mod g;//проверка условия деления на цифру без остатка
      if k<>0 then goto m;//если не делится без остатка, то проверяется следущее число
      z:=z div 10;
      end;
      writeln (i);//вывод чисел
   m: end;
      readln;
end.

[Fantazerishka]

Я не особо понял в чем суть (извиняюсь три часа ночи), но поюзал код из интереса, чтоб глянуть нужен ли тут безусловный переход, так вот программа выдает только тупо натуральные числа подподряд, если введенное значение даже больше 20 выдает все равно только первые 9, это у меня глюк или так и должно быть?