Viết chương trình xóa hết chữ số trong xâu?

Program Xoa_chu_so;

Uses crt;

Var i: integer;

S: string;

Begin

Clrscr;            

Write(‘Nhap xau S: ‘); Readln(S);            

For i:=length(S) downto 1 do            

If S[i] in [‘0’..’9’] then            

Delete(S,i,1);            

Writeln(‘Xau sau khi xoa: ‘,S);

End.