Найти строку, в которой каждый символ строки S удвоен - PascalABC.NET

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

Разработать функцию Double(const S:string):string, возвращающую строку, в которой каждый символ строки S удвоен. С помощью данной функции у каждой строки из введенного набора удвоить каждый символ.

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

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

Function Double(S : String) : String;
Begin
  If Length(S)>0 then Double:=S[1]+S[1]+Double(Copy(S,2,Length(S)-1)) else Double:='';
end;

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

В данном коде реализована функция Double, которая принимает на вход строку S и возвращает новую строку, в которой каждый символ строки S удвоен.

Проверяется условие: если длина строки S больше 0, то выполняется следующее:
- Значение переменной Double присваивается значение первого символа строки S, затем к нему добавляется значение первого символа строки S, а затем к полученной строке добавляется значение переменной Double, полученное в результате вызова функции Double, с аргументом Copy(S,2,Length(S)-1), который представляет собой копию строки S, начиная со второго символа и заканчивая последним символом, длина которой на один символ меньше длины исходной строки S.
- Если длина строки S равна 0, то значение переменной Double присваивается пустой строке.
Возвращается значение переменной Double.