Строки. Паскаль

[iSkulll]

Дан символ C и строки S, S0. Перед каждым вхождением символа C в строку S вставить строку S0.

var s,s0:string;
     i:byte;
     c:char;
begin
writeln('Введите строку:');
readln(s);
writeln('Введите подстроку:');
readln(s0);
for i:=1 to length(s) do
if s[i]='c' then Insert(s0,s,i);
writeln(s);
readln
end.

[iSkulll]

Прога не работает.В чем ошибка?

[veniside]

> В чем ошибка?

переменную i надо дополнительно увеличивать на 1 после Insert('C', s, i);

[iSkulll]

Исправил)

var s,s0:string;
     i:byte;
     c:char;
begin
writeln('Введите строку:');
readln(s);
writeln('Введите подстроку:');
readln(s0);
for i:=1 to length(s) do
if s[i]='c' then Insert(s0,s,i);
writeln(s);
readln
end.

Спасибо!