Mọi người giúp em bài này với ạ! Em đang bí lắm luôn!! Dạng bài tập kiểu xâu Nhập vào 2 xâu. Kiểm tra xem kí tự cuối của xâu thứ nhất có trùng với kí tự đầu tiên của xâu thứ 2 hay không? Thông báo kết quả ra màn hình.

uses crt;

var s1, s2 : string; d : byte;

begin

clrscr;

write('Nhap xau s1 = '); readln(s1);

write('Nhap xau s2= '); readln(s2);

d := length(s1);

if s1[d] <> s2[1]

then write('Ki tu cuoi s1 khong trung ki tu dau s2')

else write('Ki tu cuoi s1 trung ki tu dau s2');

readln

end.

program Tin_hoc;

uses crt;

var s1,s2:string;

begin

clrscr;

writeln('Nhap xau s1:');

readln(s1);

writeln('Nhap xau s2:');

readln(s2);

if s1[length(s1)] = s2[1] then writeln('Ki tu cuoi cua xau thu nhat trung voi ki tu dau cua xau thu hai')

else writeln('Ki tu cuoi cua xau thu nhat khong trung voi ki tu dau cua xau thu hai');

readln;

end.

Nhớ cho mik câu tlhn nha