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

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

var n, i, p, t:integer;
Begin
write('Введите число n=');
readln(n);
for i:=1 to n do
begin
t:=i;
p:=t mod 10;
t:=t div 10;
if (plt;gt;0)and(i mod p=0) then write(i, ' ');
end;
End.