: Viết chương trình nhập một xâu ký tự St từ bàn phím và một ký tự ch. In ra màn hình xâu St sau khi xóa hết các ký tự ch trong xâu đó.

uses crt;

var i : byte; St : string; ch : char;

begin

clrscr;

write('Nhap xau ki tu : '); readln(St);

write('Nhap ki tu : '); readln(ch);

i := 1; while i <= length(St) do

begin if St[i] = ch then begin

delete(St, i, 1); i := i; end

else i := i + 1; end;

write('Xau moi : ', St);

readln

end.