var

s:string;

n:integer;

ch:char;

begin

readln(s);

readln(n);

ch:='9';

while n>0 do begin

if pos(ch,s)>0 then begin

delete(s,pos(ch,s),1);

n:=n-1;

end

else ch:=pred(ch);

end;

while (length(s)>1)and(s[1]='0') then delete(s,1,1);

writeln(s);

end.

在PASCAL上试了很多遍，都是对的，可提交之后只过了两个点，其他都是答案错误

程序有问题吗？