Цифры числа...

[Mr.Qwerty]

Добрый день! У меня возникла проблемка, дано задание: найти произведение цифр числа, то есть например дано: 19342 - ответ: 216
Вот попробовал написать код:

program ex_1;
var i,a,b,c,n,x:integer;
begin
writeln('dsf');
Readln(a);
x:=1;
for i:=1 to 100 do 
begin
if a>10 then
 begin
    b:=a mod 10;
    c:=(a-b) div 10;
    a:=c;
  end
 else b:=a;
end;
x:=x*b;
Writeln(x);
Readln(x);
end.

Как не упрощал, все равно выдает не то что нужно( Помогите плиз промодернизировать...

[Greblin]

Только вчера писал в ПС похожую функцию, вот чуть-чуть модернизировал

function digitMul(a: integer): integer;
var m: integer;
begin
m := 1;
while a > 9 do
  begin
  m := m * (a mod 10);
  a := a div 10;
  end;
m := m * a;
digitMul := m;
end;

Можно спросить, а в чём сакральный смысл цикла for в вашей программе?