Tin học 11-nhập vào từ bàn phím 1 xâu không quá 100 kí tự.in ra màn hình xâu sau khi đã xoá bỏ tất cả các kí tự B(không phân biệt chữ hoa hay chữ thường)

uses crt;
var s:string; i:byte;
begin
   clrscr;
   write('Nhap xau: '); readln(s);
   while i<=length(s) do
   begin
      if (s[i]='B') or (s[i]='b') then 
      begin
         delete(s,i,1);
         i:=i-1;;
      end;
      i:=i+1;
   end;
   write('Xau ket qua la: ',s);
   readln
end.

var i:integer;

s1,s2:string[100];

begin

clrscr;

writeln('Nhap xau khong qua 100 ki tu:');readln(s1);

s2:='';

for i := 1 to length(s1) do

if (ord(s1[i]) in ['32'..'64']) or (ord(s1[i]) in ['91'..'96']) or (ord(s1[i]) in ['123'..'126']) then s2:=s2+s1[i];

writeln('Xau da xoa tat ca cac ki tu chu cai:');writeln(s2);

readln;

end.