要是没有的话帮我作作这两道题，就是那上的，做出来也给分
求求各位了，做一道也可
Pascal的
问题描述：
给你一个字符串（长度<=40个字符），并以字符 ’.’ 结束。
例如：’This is a book.’ 现对该字符串进行编辑，编辑功能有：
D：删除一个字符，命令的方式为：
D a 其中a为被删除的字符
例如：D s 表示删除字符 ’s’ ，若字符串中有多个 ‘s’，则删除第一次出现的。
如上例中删除的结果为： ‘Thi is a book.’
I：插入一个字符，命令的格式为：
I a1 a2 其中a1表示插入到指定字符前面，a2表示将要插入的字符。
例如：I s d 表示在指定字符 ’s’ 的前面插入字符 ‘d’ ，若原串中有多个 ‘s’ ，则插入在最后一个字符的前面，如上例中：
原 串：’This is a book.’
插入后：’This ids a book.’
R：替换一个字符，命令格式为：
R a1 a2 其中a1为被替换的字符，a2为替换的字符，若在原串中有多个a1则应全部替换。
例如： 原 串： ‘This is a book.’
输入命令：R o e
替换后的字符串为： ‘This is a beek.’
在编辑过程中，若出现被改的字符不存在时，则输出“error！”。
你的任务是输出编辑后的字符串。
程序名：edit
输入格式：
两行：
第一行：一个字符串，表示待编辑的字符串
第二行：一行编辑命令，命令中间用一个空格隔开 （编辑命令D R I都是大写字母）
输出:
一行字符串，表示编辑后的字符串，若出现被改的字符不存在时，则输出“error！”
样例输入1：
a123 b12 aa.
D 2
样例输出1
a13 b12 aa
样例输入2：
abc dc e .
I c f
样例输出2
abc dfc e.
样例输入3：
abcd efg.
R s t
样例输出3
Error！
————————————————————————————
第四题：编码问题
问题描述：
设有一个数组A,共有N个元素 (N<=10)，元素值小于30000；数组中存放的元素为0～N-1之间的整数，且A[i]≠A[j]（当i≠j时）。
例如：N=6时，有： A=（4，3，0，5，1，2）
此时，数组A的编码定义如下：
A[0]的编码为0；
A[i]的编码为：在A[0]，A[1]，……A[i-1]中比A[i]的值小的个数（i=1，2……N-1）
∴上面数组A的编码为： B=（0，0，0，3，1，2）
程序要求解决以下问题：
① 给出数组A后，求出其编码；
② 给出数组A的编码后，求出A中的原数据。
程序名：encode
输入格式：
两行：
第一行两个整数，第一个一个整数（0或者1），如果是0，表示是给出数组A，求编码，如果是1，表示给出编码，求原数据，第二个整数N，表示数组长度
第二行：N个整数
输出格式：
一行，输出n个整数。整数之间用一个空格隔开
输入样例1：
0 6
4，3，0，5，1，2
输出样例1：
0，0，0，3，1，2
输入样例2：
1 6
0，0，0，3，1，2
输出样例2：
4，3，0，5，1，2