Nhập 2 xâu kiểm tra ký tự cuối cùng của số thứ nhất với ký tự đầu tiên của xâu thứ hai có trùng nhau không? Ai giải giúp mình với!!! Không cóp trên mạng nha 😊

 writeln('Nhap xau thu nhat : '); readln(s1);
         writeln('Nhap xau thu hai: '); readln(s2);
         x:=length(s1);
         if s1[x]=s2[1] then write(Trung Nhau)else write('Khong trung nhau');
         readln;

$#QLinkVN$

CẤU TRÚC CHƯƠNG TRÌNH CỤ THỂ NHƯ SAU:

program lmfao;
uses crt;
var s1,s2:string;
      x:byte;
begin
         clrscr;
         writeln('Nhap xau thu nhat : '); readln(s1);
         writeln('Nhap xau thu hai: '); readln(s2);
         x:=length(s1);
         if s1[x]=s2[1] then write('Trung nhau') else write('Khong trung nhau');
         readln;
end.

KHI NHẬP VÀO LÀ "vietnam" VÀ "malaysia" ĐƯỢC KẾT QUẢ NHƯ HÌNH!