Kiểm tra xem kí tự đầu của sâu này có phải là kí tự cuối của xâu kia không ?

PROGRAM CT70;
USES crt;
VAR s1,s2: STRING;
BEGIN
clrscr;
Write('Nhap xau 1: '); Readln(s1);
Write('Nhap xau 2: '); Readln(s2);
IF s1[1] = s2[length(s2)] THEN Write('Trung nhau') ELSE Write('Khong trung');
Readln
END.

Download: http://www.mediafire.com/?kzw53gzk437ftwz