помогите объяснить задачу!
Program String29;
var
otvet:String;
i:integer;
S0,S:String;
C:char;
begin
Writeln('Введите строкy S');
readln(S);
Writeln('Введите строкy S0');
readln(S0);
Writeln('Введите символ C');
readln(C);
for i:=1 to length(S) do
begin
if S[i]=C then Otvet:=otvet+S0+C
else Otvet:=otvet+S[i];
end;
Writeln('Ответ:', otvet);
end.

varotvet:String; i:integer; S0,S:String;C:char;begin//Считывание данныхWriteln('Введите строкy S');readln(S);Writeln('Введите строкy S0');readln(S0);Writeln('Введите символ C');readln(C);//Цикл посимвольная обработка строкиfor i:=1 to length(S) dobegin//Программа вставляет подстроку S0 в строку S //перед каждым символом C//Сохраняя результат в otvetif S[i]=C then Otvet:=otvet+S0+C else Otvet:=otvet+S[i];end;Writeln('Ответ:', otvet);end.