Pascal. Задача 5-9

В строке, введенной пользователем, удвоить все заглавные латинские буквы (например, A заменить на AA).

Примечание: Необходимо изменить исходную строку, а не формировать новую.

Решение

var
  sin :string;
  i, p : integer;
begin
  write('Введите текст: ');
  read(sin);
  i := 0;
  repeat
    Inc(i);
    if sin[i] in ['A'.. 'Z'] then begin
      Insert(sin[i], sin, i);
      Inc(i);
      end;
  until i >= Length(sin);
  writeln(sin);
end.