Увеличить строку, вдвое дописав рядом с каждым символом строки такой же - Turbo Pascal

Формулировка задачи:

Дана строка, увеличить строку вдвое дописав рядом с каждым символом строки такой же

Решение задачи: «Увеличить строку, вдвое дописав рядом с каждым символом строки такой же»

Листинг программы

var
  s: string;
  i: integer;
 
begin
  Writeln('Введите строку: ');
  Readln(s);
  for i := Length(s) downto 1 do
    Insert(s[i], s, i);
  Writeln(s);
  Readln
end.

Объяснение кода листинга программы

В начале объявляются переменные s и i типа string и integer соответственно.
Затем выводится сообщение «Введите строку: », после чего с помощью функции Readln считывается строка из стандартного ввода и сохраняется в переменной s.
Далее идет цикл for, который начинается с переменной i равной Length(s) и продолжается до i = 1 (используется оператор downto для уменьшения значения i на единицу).
Внутри цикла с помощью функции Insert в каждую позицию строки s вставляется символ s[i], который равен символу, находящемуся на той же позиции в исходной строке.
После окончания цикла выводится полученная строка с помощью функции Writeln.
Затем с помощью функции Readln считывается следующий ввод пользователя.