Помогите объяснить задачу!

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.

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

//Программа вставляет подстроку S0 в строку S

//перед каждым символом C

//Сохраняя результат в otvet

if S[i]=C then

Otvet:=otvet+S0+C

else

Otvet:=otvet+S[i];

end;

Writeln ('Ответ:', otvet) ;

end.