计数游戏

前言
“水法暴力真神奇（非奇迹），此乃标程正解也。”今天，嘟嘟老师讲一道水题——计数游戏。
题目描述
试计算在区间1 到n 的所有整数中，数字x（0 ≤ x ≤ 9）共出现了多少次？例如，在1到11 中，即在1、2、3、4、5、6、7、8、9、10、11 中，数字1 出现了4 次。
输入
输入文件名为count.in。
输入共1 行，包含2 个整数n、x，之间用一个空格隔开。
输出
输出文件名为count.out。
输出共1 行，包含一个整数，表示x 出现的次数。
样例输入
11 1
样例输出
4
数据范围限制
对于100%的数据，1≤ n ≤ 1,000,000，0 ≤ x ≤ 9。
思路
淼！！！直接双重循环搞事情，暴力扫一遍，统计一下就行了。
代码

var
        i,j,n,x,ans:longint;
        s:string;
begin
        assign(input,'count.in');reset(input);
        assign(output,'count.out');rewrite(output);
        read(n,x);
        for i:=1 to n do
        begin
                str(i,s);
                for j:=1 to length(s) do
                        if (ord(s[j])-48=x) then inc(ans);
        end;
        write(ans);
        close(input);
        close(output);
end.