pascal:统计10个自然数中，0~9这十个数字出现的次数。

Question

请教一下

Answer 1

program check(input, output);
var i, n: integer;
count: array[0..9] of integer
s: string;
begin
for n:=0 to 9 do count[n]:=0;
for n:=1 to 10 do
begin
write('input number: ');
readln(n);
str(n, s);
for i:=1 to length(s) do inc( count[ ord(s[i])-ord('0')] );
end;
for n:=0 to 9 do writeln(n, ' --- ', count[n]]); // display
end.
// 未调试， 大致如此。

Answer 2

program pp;
var n,i,j,t,x:integer; p,r:string;
begin
p:='';
for i:=1 to 10 do
begin read(n); str(n,r);p:=p+r; end;
for i:=0 to 9 do
begin t:=0;
for j:=1 to length(p) do
begin
val(copy(p,j,1),x);
if x=i then t:=t+1;
end;
writeln(i,':',t);
end;
readln;
end.

Answer 3

a:array[1..10]of string;