Giúp mình với. Viết chương trình nhập vào từ bàn phím 1 xấu s. Tính độ dài của xâu , đếm số lượng kí tự "a" trong xâu ( không phân biệt chữ hoa và chữ thường) . Xóa các dấu cách giữa 2 từ sao cho giữa từ chỉ để lại 1 dấu cách . Ghi kết quả vào tệp XAU.OUT .

var s: string;

i,d: byte;

begin

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

d:=0;

for i:=1 to length(s) do if (s[i]='b') or (s[i]='B') then d:=d+1;

write('Co ',d,' ki tu B trong xau');

readln

end.

uses crt;

var S : string; d, i : integer; f : text;

begin

clrscr;

write('Nhap xau S : '); readln(S);

assign(f, 'XAU.OUT'); rewrite(f);

i := 1; d := 0; while i < length(S) do

if (S[i] = ' ') and (S[i + 1] = ' ') then begin delete(S, i, 1);

i := i; end else i := i + 1;

for i := 1 to length(S) do

if (S[i] = 'a') or (S[i] = 'A') then d := d + 1;

writeln(f, 'Do dai xau = ', length(S));

writeln(f, 'Xau co ', d ,' ki tu a');

writeln(f, 'Xau sau khi xoa : ', S);

close(f);

readln

end.