字符串展开

问题描述： 先说一个字符串展开的例子：如果在输入的字符串中，含有类似于“d-h”或“4-8”的子串，就把它当作一种简写，输出时，用连续递增的字母或数字串替代其中的减号，即将上面两个子串分别输出为“defgh”和“45678”。
在本题中，我们通过增加一些参数的设置，使字符串的展开更为灵活。具体约定如下：
（1）遇到下面的情况需要做字符串的展开：在输入的字符串中，出现了减号“-”，减号两侧同为小写字母或同为数字，且按照ASCII码的顺序，减号右边的字符严格大于左边的字符。
（2）参数p1：展开方式。p1=1时，对于字母子串，填充小写字母；p1=2时，对于字母子串，填充大写字母。这两种情况下数字子串的填充方式相同。p1=3时，不论是字母子串还是数字子串，都用与要填充的字母个数相同的星号“*”来填充。
（3）参数p2：填充字符的重复个数。p2=k表示同一个字符要连续填充k个。例如，当p2=3时，子串“d-h”应扩展为“deeefffgggh”。减号两侧的字符不变。
（5）如果减号右边的字符恰好是左边字符的后继，只删除中间的减号，例如：“d-e”应输为“de”，“3-4”应输出为“34”。如果减号右边的字符按照ASCII码的顺序小于或等于左边字符，输出时，要保留中间的减号，例如：“d-d”应输出为“d-d”，“3-1”应输出为“3-1”。

var
s,ss,ans:string;
i,n,m,j,k,l,p1,p2,p3,len,A1,A2,ch,cg:longint;
c,q,p:char;
function pd(a,b:longint):boolean;
begin
if (a>=97) and (a<=122) and (b>=97) and (b<=122) then exit(true);
if (a>=48) and (a<=57) and (b>=48) and (b<=57) then exit(true);
exit(false);
end;

procedure check(w:longint);
var
i,k,j:longint;
begin
ss:=”;
k:=ord(s[w-1]);
j:=ord(s[w+1]);
if j-k<>1 then
begin
if p1=1 then begin
for c:=chr(k+1) to chr(j-1) do
for i:=1 to p2 do
ss:=ss+lowercase(c);
end;
if p1=2 then begin
for c:=chr(k+1) to chr(j-1) do
for i:=1 to p2 do
ss:=ss+upcase(c);
end;
if p1=3 then begin
for c:=chr(k+1) to chr(j-1) do
for i:=1 to p2 do
ss:=ss+’*’;
end;
end;
if p3=1 then write(ss)
else for i:=length(ss) downto 1 do
write(ss[i]);
end;

begin
readln(p1,p2,p3);
readln(s);
len:=length(s);
write(s[1]);
for i:=2 to len do
begin
A1:=ord(s[i-1]);
A2:=ord(s[i+1]);
if (s[i]=’-‘) and (A1