viết chương trình nhập vào 2 xâu xuất ra 1 xâu là của 2 xâu đó nối lại

uses crt;
var x1,x2: string;
begin
clrscr;
write('Nhap xau 1: ');  readln(x1);
write('Nhap xau 2: ');  readln(x2);
write('Sau khi noi hai xau la: ',x1+x2);
readln
end.