Косте

var
   s: string;
   c: char;
   i: byte;

BEGIN
   write('Строка: '); readln(s);
   write('Символ: '); readln(c);

   for i:=1 to length(s) do
   begin
      write(s[i]);
      if (s[i]=c) then write(s[i]);
   end; writeln;
END.