Nhập từ bàn phím một xâu. Đếm số lần xuất hiện của từ "Tin" trong sâu... (Giúp nhanh nha mọi người)

Program Hotboy ;

  Uses crt;

  var Hb:string;

  i,d:byte;

  k:char;

  Begin

  Clrscr;

   D:=0;

   Write('Nhap xau tu ban phim ');         

   Readln(Hb);

Write('nhap ki tu bat ki');

Readln(k);

   For i:=1 to length(Hb) do

   if (Hb[i]=k ) then inc(d);

   write('So ki tu ',k,' trong xau do la: ',d);

   Readln

   End.

code pascal:

program bai_tap;

uses crt;

var s,x:string;

d,i:longint;

begin

clrscr;

write('nhap 1 sau=  ');

read(s);

x:='Tin';

d:=0;

for i:=1 to length(s) do

if pos(x,s)<>0 then

begin

Delete(S,pos(x,s),3);

d:=d+1;

end;

write('So lan xuat hien cua tu Tin la: ',d);

readln;

readln;

end.