从键盘输入一行字符串，假定字符串长度不超过50，试统计出该字符串中每一种十进制数字字符的个数 并输出

program x1;
var i,t:integer;
a:array['0'..'9'] of integer;
j:char;
s,ch:string;
begin
for j:='0' to '9' do
a[j]:=0;
readln(s);
t:=0;
for i:=1 to length(s) do
if (s[i]>='0')and(s[i]<='9') then
begin
ch:=copy(s,i,1),
a[ch]:=a[ch]+1;
end;
for j:='0' to '9' do
writeln(j,':',a[j]);
end.