Дано четырёхзначное число n.определить делится ли это число на все свои цифры?

Var a,a1,b,c:longint;
begin
write('введите четырёхзначное число=> ');
readln(a);
a1:=a;
while (a<>0) do begin
b:=a mod 10;
if (a1 mod b=0) then c:=c+1;
a:=a div 10; 
end;
if (c=4) then writeln('делится')
else writeln('не делится');
end.