Найти все натуральные числа, не превосходящие заданного n, которые делятся на каждую из своих цифр. (программа Паскаль)

uses crt;
var n,i,j:integer;
    f:boolean;
begin
clrscr;
write('Введите натуральное число n=');
readln(n);
for i:=1 to n do
 begin
  f:=true;
  j:=i;
  while (j>0)and f do
  if (j mod 10=0)or(i mod (j mod 10)<>0) then f:=false
  else j:=j div 10;
  if f then write(i,' ');
 end;
readln
end.