思路：从键盘分别输入字符串和要统计的字符，然后对此字符串从头开始逐个与所统计的字符比较。

如相同，则让计数器加1，知道字符串整体比较结束为止，计数器中就是需统计的字符的个数，具体代码设计如下：

函数应用

1、连接运算 concat(s1,s2,s3…sn) 相当于s1+s2+s3+…+sn.

例：concat(‘11’,'aa’)='11aa’;

2、求子串。 Copy(s,I,I) 从字符串s中截取第I个字符开始后的长度为l的子串。

例：copy(‘abdag’,2,3)=’bda’

3、删除子串。过程 Delete(s,I,l) 从字符串s中删除第I个字符开始后的长度为l的子串。

例：s:=’abcde’;delete(s,2,3);结果s:=’ae’

4、插入子串。 过程Insert(s1,s2,I) 把s1插入到s2的第I个位置

例：s:=abc;insert(‘12’,s,2);结果s:=’a12bc’