К концу строки S1 добавить последний символ S2

Var S1,S2:string; Begin Write('Введите первую строку: '); ReadLn(S1); Write('Введите вторую строку: '); ReadLn(S2); S1:=S1+S2[Length(S2)]; Write('S1: ',S1); End.

// PascalABC.NET 3.2, сборка 1389 от 01.03.2017 // Внимание! Если программа не работает, обновите версию! begin   var s:=ReadlnString('Вводите:');   s+=s.Last; Writeln(s) end. Пример Вводите: Моя строка! Моя строка!! Если s2 не последний символ строки s1, а самостоятельная строка. begin   var s1:=ReadlnString('Строка 1:');   var s2:=ReadlnString('Строка 2:');   s1+=s2.Last; Writeln(s1) end. Пример Строка 1: Моя строка Строка 2: Тоже моя! Моя строка!