回答已经修改~program zfc;procedure zfc2;var
str1,str2,str3:string;
a,b:integer;begin
writeln('Please Input 1st:string');{以下读取}
read(str1);
writeln('Please Inpuy weizhi :integer');
readln(a);
writeln('Please Input 2nd:string');
read(str2);
if length(str1) =a then{判断先前输入的整数是否小于或等于字符串长度}
begin
insert(str2,str1,a);{先插入}
b:=length(str2);{读取插入长短}
delete(str1,a+b,b);{从插入后字符串中删去多余的}
writeln('Answers:');
writeln(str1);{输出结果}
endelse writeln('Input Error!');end;beginzfc2;readln;readln;end. |