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 oken;
uses crt;
var s: string;
    chr: char;
    dem,i: byte;
begin
    clrscr;
    write('Nhap xau: '); readln(s);
    write('Nhap ki tu can kiem tra: '); readln(chr);
    dem:=0;
    for i:=1 to length(s) do
        if chr=s[i] then
            dem:=dem+1;
    writeln('So lan xuat hien cua ki tu ',chr,': ',dem);
    readln;
end.

  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.