Stringer

program Stringer;


function redubleChar(s: string; c: char) :string;
var
  result: string;
begin
  result := '';
  for i := 1 to Length(s) do
    if s[i] <> c then
      result := result + s[i]
    else
      result := result + s[i] + s[i]
  redoubleChar := result;
end;

var
  S, C: string;
  newString: string;

begin
  WriteLn('Введите символ');
  ReadLn(C);
  WriteLn('Введите строку');
  ReadLn(S);
  WriteLn;

  newString = redoubleChar(S, C);
  WriteLn(newString);
end.