Написать программу в Паскале Отыскать все естественные числа, не превосходящие заданного

program divide_;
var i, f, k, n, m: integer;
begin
writeln(Введите число);
readln(n); //n - предельное число
for i:= 1 to n do
begin
f:= 1;
m:= i; // копия еще одного числа
while m lt;gt; 0 do
begin
k:= m mod 10;
if (k = 0) or (i mod k gt; 0) then f:= 0;
// Если еще одна цифра одинаково нулю
// либо если число не делится на цифру числа, тогда флаг f=0
m:= m div 10;
end;
if f = 1 then writeln(i);
end
end.