Viết chương trình nhập vào một xâu A: a. In ra màn hình xâu thu được sau khi bỏ hết kí tự ‘b’ b. Kiểm tra xâu A có phải là xâu đối xứng hay không . c. Thay thế tất cả các cụm từ kí tự ‘choi’ bằng cụm từ kí tự ‘hoc’.

Program FNG;
Uses crt;
Var St: String;
    A: array[1..10000] of String;
    i,n: longint;

Function dx(St: String): boolean;
Var i: longint;
Begin
        For i:=1 to length(St) div 2 do
                If St[i]<>St[length(St)-i+1] then exit(false);
        exit(true);
End;

Begin
        Clrscr;
        Write('Nhap St: '); Readln(St);
        For i:=1 to length(St) do
                If St[i]='b' then Delete(St,i,1);
        Writeln('St = ',St);
        If dx(St) then Writeln('Doi xung')
        Else Writeln('Khong doi xung');

        While St[1]=#32 do Delete(St,1,1);
        While St[length(St)]=#32 do Delete(St,length(St),1);
        While Pos(#32#32,St)<>0 do Delete(St,Pos(#32#32,St),1);

        n:=1;
        For i:=1 to length(St) do
                If St[i]=#32 then inc(n);
        For i:=1 to n do A[i]:='';

        n:=1;
        For i:=1 to length(St) do
                If St[i]<>#32 then A[n]:=A[n]+St[i]
                Else inc(n);
        For i:=1 to n do
                If A[i]='choi' then A[i]:='hoc';
        For i:=1 to n do Write(A[i],' ');
        Readln
End.