Склеивание 2 строк посимвольно - Pascal

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

Даны строки "abc", "123". получить строку "a3b2c1"

                    Листинг программы
                
 
                        
                          
                    
const
s1 = 'abc';
s2 = '123';
var s3:string;
i : integer;
begin
 s3:='';
 for i:=3 downto 1 do begin
 s3:=copy(s2,i,1)+s3;
 s3:=copy(s1,i,1)+s3;
end;
 writeln(s3);
end.

так получается "a1b2c3"

Решение задачи: «Склеивание 2 строк посимвольно»

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

for i:=3 downto 1 do
begin
  s3:=copy(s2,4 - i,1)+s3; { <--- }
  s3:=copy(s1,i,1)+s3;
end;

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

i - переменная цикла, принимает значение от 3 до 1.
s3 - результирующая строка, в которую будут склеиваться символы. Изначально пустая.
s2 - исходная строка, из которой будут браться символы для склеивания.
s1 - вторая исходная строка, из которой также будут браться символы для склеивания. Описание действий:
- На каждом шаге цикла берется символ из строки s2 начиная с (4 - i)-й позиции и добавляется в начало строки s3.
- Затем берется символ из строки s1 на позиции i и также добавляется в начало строки s3.
- Это действие повторяется для каждого значения переменной i от 3 до 1. Таким образом, в итоге строка s3 будет содержать склеенную строку, составленную из символов строк s1 и s2.