Найти произведение цифр заданного числа — Pascal(Паскаль)

program tmp;
uses crt;
const count=100;
var
   st:string;
   i,x,p,code:integer;
   mas:array[1..count] of integer;
begin
clrscr;
readln(x);
str(x,st);
for i:=1 to length(st) do
val(st[i],mas[i],code);
p:=1;
for i:=1 to length(st) do p:=p*mas[i];
write('proizv: ',p);
readkey;
end.