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: Тоже моя!
Моя строка!