PROGRAM Xoaso; USES crt; VAR f1,f2 : TEXT ; x,max: STRING; n,k,j,i,maxi : BYTE; BEGIN clrscr; assign(f1,'XOASO.INP'); reset(f1); assign(f2,'XOASO.OUT'); rewrite(f2); Readln(f1,x,k); FOR j:=1 TO k DO BEGIN max:=x[1]; FOR i:= 1 TO length(x) DO IF x[i] > max THEN BEGIN max:= x[i]; maxi:=i; END; delete(x,maxi,1); END; Write(f2,x); close(f1); close(f2); END.