Viết chương trình nhập vào từ bàn phím một xâu kí tự (s) gồm các chữ cái in hoa từ 'A' đến 'Z'. Xóa hết tất cả các kí tự 'A' và viết thường xâu trên rồi in ra màn hình. Ord(ch) -> mã ASCII của ch Vd: Ord('A') -> 65 Chr(a) -> kí tự có mã ASCII là a Vd: Chr(65) -> A

uses crt;

var s : string;

i : byte;

begin

clrscr;

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

i := 1;

while i <= length(s) do

if s[i] = 'A' then

begin delete(s, i, 1); i := i - 1; end

else i := i + 1;

write('Xau moi : ', lowercase(s));

readln

end.

uses crt;
var s: string;
    i: word;
begin
clrscr;
    readln(s);

    while s[1] = 'A' do delete(s, 1, 1);
    while s[length(s)] = 'A' do delete(s, length(s), 1);
    while pos('A', s) = 1 do delete(s, pos('A', s), 1);

    writeln(lowercase(s));
readln;
end.