Даны строки S1, S2 и символ C. Перед (после) каждого вхождения символа C в строку S1 вставить строку S2.

uses crt;
var s1,s2,s:string;
    c,w:char;
    i:byte;
begin
clrscr;
writeln('Введите строку, в которую будем вставлять:');
readln(s1);
writeln('Введите строку, которую будем вставлять:');
readln(s2);
repeat
write('Введите символ из строки, перед(после) котрого вставлять c=');
readln(c);
if pos(c,s1)=0 then writeln('Такого символа нет в строке, повторите ввод.');
until pos(c,s1)>0;
repeat
clrscr;
writeln('Куда вставлять?');
writeln('1-перед');
writeln('2-после');
writeln('другое-выход');
readln(w);
case w of
'1':begin
     s:=s1;
     for i:=length(s)downto 1 do
     if s1[i]=c then insert(s2,s,i);
     write(s);
     readln;
     end;
'2':begin
     s:=s1;
     for i:=length(s)downto 1 do
     if s1[i]=c then insert(s2,s,i+1);
     write(s);
     readln;
     end;
else exit;
end;
until not(w in ['1'..'2']);
end.