Viết chương trình xâu a) nhập độ dài của xâu b) đếm số B trong xâu Giải giúp mình với ạ

program bai_tap;

uses crt;

var s:string;

      d,i:byte;

begin

       write(‘Nhap xau: ‘);   readln(s);

       writeln(‘Do dai cua xau la: ‘,length(s));

       d:=0;

       for i:=1 to length(s) do

              if s[i]=’B’ then d:=d+1;

       write(‘Co ‘,d,’ chu B trong xau’);

       readln;

end.