Помогите с Паскалем. Задачка в прикрепленных.

Var
   a,b,c,f:longint;
Begin
Read(a,b);
For b:= a to b do
    Begin
    c:=b;
    f:=1;
    While c gt; 0 do
       Begin
       if c mod 10 = 0 then f:=0
       else if b mod (c mod 10) lt;gt; 0 then f:=0;
       c:=c div 10;
       End;
    if f = 1 then Write(b,' ')
    End;
End.