Nhập một xâu bất kì từ bàn phím Xóa tất cả các ký tự a

var s: string;

       i: byte;

Begin

    Write(‘nhap xau: ‘); readln(s);

    i:=1;

    While i<=length(s) do

        If s[i]=’a’ then delete(s, i, 1)

         Else inc(i);

    Write(s);

    Readln

End.