Viết chương trình nhập vào từ bàn phím hai xâu. Kiểm tra xem kí tự cuối cùng của xâu tứ nhất có trùng với kí tự thứ hai của xâu thứ hai hay không. Kết quả được đưa ra màn hình thông báo 'trùng nhau' hoặc 'không trùng nhau'. Ai giúp e với ạ, e sẽ vote 5 sao

Program Xau;
Uses crt;
Var St, S: String;

Begin
        Clrscr;
        Write('Nhap xau thu nhat: '); Readln(St);
        Write('Nhap xau thu hai: '); Readln(S);

        If St[length(St)] = S[2] then Write('Trung nhau')
        Else Write('Khong trung nhau');

        Readln
End.

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