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

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