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

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