Как найти произведение цифр четырех значного числа на языке паскаль?

Var
x,p:integer;
begin
writeln('Введите х:');
readln(x);
p:=1;
p:= x mod 10; x:=x div 10;
p:= p * (x mod 10); x:=x div 10;
p:= p * (x mod 10); x:=x div 10;
p:= p * x;
writeln(p);
end.