chardobl.PAS

{* Удвоить каждую букву в тексте *}

Unit CHARDOBL;
Interface
Implementation
Begin
 writeln('Удвоить каждую букву в тексте');
End.

Program pas;

Uses chardobl.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* В работе нам потребуются переменные: *}
  S     : String;
  x     : String;
  y     : String;
  i     : integer;
  v     : integer;
  dlina : integer;
Begin
  writeln('Введите текст');
  readln(s);
  dlina := length(s);
  For i := 1 To dlina + 1 Do {* Увеличиваем i от 1 до dlina с шагом 1 *}
  Begin
    i := i + 1;
    x := s[i];
    Insert(x, s, i);
  End;
  Writeln('В результате удвоения букв - ');
  Writeln(s);
  readln; {* Приостановка программы. Ожидание Enter *}
End.