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

Var a, a1, b, c:longint;

begin

write ('введите четырёхзначное число=> ') ;

readln (a) ;

a1:=a;

while (a0) 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.