Вывод чисел, делящихся на каждую из своих цифр. Паскаль

[ЯншинаВера]

Программу написала, но, почему-то она работает только до числа 12. Не подскажете, почему?

Вот задание: Составить программу вывода на экран всех натуральных чисел, не превосходящих N и делящихся на каждую из своих цифр.

Программа:
program z29;
uses crt;
var
m, i, k, s, n:integer;
b:integer;
label
M1;
begin
clrscr;
write('BBEDITE CHISLO N: ');
read (n);
for i:=1 to n do begin
m:=i;
while m>0 do begin
b:= m mod 10;
if b=0 then goto M1;
if i mod b=0 then s:=s+1;
k:=k+1;
m:=m div 10;
end;
if k=s then write (' ', i);
M1:end;
readln;
readln;
end.

[alexBlack]

А где инициализация ?

for i:=1 to n do begin
m:=i; k := 0; s := 0;

[ЯншинаВера]

Спасибо большое, каюсь, упустила.
Наверное подустала, всю ночь чертила в Графе автостоянку. Голова не работает.
Спасибо!

[ЯншинаВера]

Тему можно закрывать