删数问题

 

 

var
    s:string;
    i,j,n:longint;
begin
    readln(s);
    readln(n);
    while n>0 do
    begin
        i:=1;
        while(i<length(s))and(s[i+1]>=s[i]) do inc(i);
        delete(s,i,1);
        dec(n);
    end;
    while(length(s)>=1)and(s[1]='0') do delete(s,1,1);
    writeln(s);
end.