Людии помогите пожалуйста....Ввести натуральное число N и вывести все естественные числа,

//PascalABC.NET
//Версия 3.3, сборка 1627
function f(x: integer): boolean;
begin
f:=false;
var c:=0;
foreach var item in x.ToString.Select(t-gt;t.ToDigit()).Where(r-gt;rlt;gt;0) do
if (x mod item=0) then inc(c);
if c=x.ToString.Count then f:=true;
end;
begin
var n:=ReadInteger;
range(1,n).Where(x-gt;f(x)).Println;
end.