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

Вот как она записывается на языке Паскаль:
Var Chislo,
Proizv: integer;
begin Proizv:=1;
write(Число: );
readln(Chislo);
while Chislo gt; 0 do begin Proizv:=Proizv*(Chislo mod 10);
Chislo:=Chislo div 10; end;
writeln(Произведение цифр числа: , Proizv);
end.