program xoa_chu_so;
uses crt;
var s:string;
    k,i,j,vt,min,so:byte;
begin
        clrscr;
        write('Nhap xau: ');   readln(s);
        write('Nhap k: ');   readln(k);
        for i:=1 to k do
                begin
                        vt:=1;  val(s[1],min);
                        for j:=2 to length(s)-k+i do
                                begin
                                        val(s[j],so);
                                        if so<min then
                                        begin
                                                min:=so;
                                                vt:=j;
                                        end;
                                end;
                        delete(s,vt,1);
                end;
        write(s);
        readln;
end.

Bạn xem lại nha.