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

uses crt;
function DelCif(x:longint):boolean;
var y:longint;
    k:byte;
begin
y:=x;
while y<>0 do
 begin
  k:=y mod 10;
  if (k=0)or(x mod k<>0)then
    begin
     DelCif:=false;
     break;
    end;
  y:=y div 10;
 end;
end;
var n,i,k:longint;
begin
clrscr;
write('Введите N=');
readln(n);
for i:=1 to n do
if DelCif(i)then
 begin
  write(i:5);
  k:=k+1;
 end;
readln;
end.