初一的学生跪求高手们解一道PASCAL的问题,要具体过程,答案自己有,只是不懂(2)

这道题的答案：dog-is-clever
解答过程：
1
var
i,j:integer;
str1,str2:string;
begin
定义四个变量，其中i,j为整数类型，str1,str2是字符串。
2
str1:='pig-is-stupid';
str2:='clever';
给str1和str2赋初值，现在str1代表字符串"pig-is-stupid",str代表"clever"。
3
str1[1]:='d'; str1[2]:='o';
修改str1。将它的第一位改为'd'，将它的第二位改为'o'。修改后，str1变成了"dog-is-stupid"。
4
i:=8;
for j:=1 to 6 do begin
str1[i]:=str2[j];inc(i);
用循环将str1的后六位用str2替换。修改后，str1为"dog-is-clever"。
5
writeln(str1);
end.
输出str1并结束程序。

var
i,j:integer;
str1,str2:string;
begin
str1:='pig-is-stupid'; //输入字符串
str2:='clever'; //同上
str1[1]:='d'; str1[2]:='o';//处理字符串的1,2位上的字符
i:=8;
for j:=1 to 6 do begin
str1[i]:=str2[j];inc(i);//把字符串2的1--6位复制给字符串2的8--13位
end;
writeln(str1); //输出
end.
问的是这个吗?

你要问什么？……