удвоить символ в заданном тексте

Var c,x:char;
Begin
  writeln('vvedite simvol');
  readln(x);
  writeln('vvedite text');
  while not eoln do
    begin
      read(c);
      if c=x then write(c,c)
      else write(c);
    end;
    readln;
readln
End.

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  Windows;
 
//Функция берёт строку в ANSI кодировке (Windows)
//и возвращает её перевод в OEM кодировку (DOS) в виде отдельной строки.
function StrAnsiToOem(aStr : String) : String;
begin
  Result := '';
  if Length(aStr) > 0 then begin
    SetLength(Result, Length(aStr));
    CharToOem(PChar(aStr), PChar(Result));
  end;
end;
 
var
  //Символ, который надо удвоить.
  CharToDouble  : Char;
  //Очередной символ, прочитанный из потока консольного ввода.
  CharTmp       : Char;
  //Строка, в которой требуется удвоить заданный символ. Эта строка будет выведена на консоль.
  StrTmp        : String;
begin
  Writeln(StrAnsiToOem( 'Введите симовол и нажмите ENTER:' ));
  Readln(CharToDouble);
  Writeln(StrAnsiToOem( 'Введите строку и нажмите ENTER:' ));
  StrTmp := '';
  while not Eoln do begin
    Read(CharTmp);
    StrTmp := StrTmp + CharTmp;
    //Если это заданный символ, то удваиваем его.
    if CharTmp = CharToDouble then begin
      StrTmp := StrTmp + CharToDouble;
    end;
  end;
  //Читаем оставшийся символ Eoln и переходим к следующей строке.
  Readln;
  Writeln(StrAnsiToOem( 'Результат:' ));
  Writeln(StrTmp);
  Writeln(StrAnsiToOem( 'Для выхода нажмите ENTER.' ));
  //Ожидаем нажатия клавиши ENTER.
  Readln;
end.

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
  //Символ, который надо удвоить.
  CharToDouble  : Char;
  //Очередной символ, прочитанный из потока консольного ввода.
  CharTmp       : Char;
  //Строка, в которой требуется удвоить заданный символ. Эта строка будет выведена на консоль.
  StrTmp        : String;
begin
  Writeln('Vvedite simvol i najmite ENTER:');
  Readln(CharToDouble);
  Writeln('Vvedite stroku i najmite ENTER:');
  StrTmp := '';
  while not Eoln do begin
    Read(CharTmp);
    StrTmp := StrTmp + CharTmp;
    //Если это заданный символ, то удваиваем его.
    if CharTmp = CharToDouble then begin
      StrTmp := StrTmp + CharToDouble;
    end;
  end;
  //Читаем оставшийся символ Eoln и переходим к следующей строке.
  Readln;
  Writeln('Resultat:');
  Writeln(StrTmp);
  Writeln('Dlya vihoda najmite ENTER.');
  //Ожидаем нажатия клавиши ENTER.
  Readln;
end.