Разделить произведение цифр заданного числа на сумму этих же цифр — Pascal(Паскаль)

program tmp;
uses crt;
const count=100;
var
   st:string;
   i,x,p,s,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;
s:=0;
for i:=1 to length(st) do begin
                          p:=p*mas[i];
                          s:=s+mas[i];
                          end;
write('proizv: ',p/s:3:2);
readkey;
end.