uses crt;
var s:string; i:byte; kt:boolean;
begin
   clrscr;
   kt:=false;
   write('Nhap xau: '); readln(s);
   for i:=1 to length(s) do 
   if copy(s,i,7)='Tin hoc' then kt:=true;
   if kt=true then write('Tu "Tin hoc" co xuat hien trong xau')
   else write('Tu "Tin hoc" khong xuat hien trong xau');
   readln
end.

Nếu bạn chưa học đến boolean thì mình sẽ viết chương trình kiểu khác nha :D 

Thuật toán : - Tạo ra các biến đếm chữ số và chữ cái gán cho nó bằng 0, cho vòng for chạy từ phần tử đầu tiên đến phần tử cuối cùng của xâu.+ Nếu phần tử đó là chữ cái thì biến chữ cái +1 + Nếu phần tử đó là chữ số thì biến chữ số +1 Cách giải :Trước tiên ta khai báo các biến- Biến xâu s có kiểu dữ liệu string- Biến chuso và biến chucai dùng để đếm số ký tự chữ số và số ký tự chữ cái.- Biến i tý nữa dùng để chạy vòng for quen thuộc.