Nhập xâu và đếm số lần xuất hiện của một ký tự được nhập từ bàn phím

  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.