C :

#include<stdio.h>
#include<string.h>
int main()
{
	char a[250],c;
	int n,i,stl,j=0,max;
	gets(a);
	scanf("%d",&n);
	stl=strlen(a);
	while(n>0)
	{
		c=a[j];
		max=j;
		for(i=j+1;i<stl;i++)
		{
			if(a[i]>c)
			{
				//printf("%c",a[i]);
				c=a[i];
				max=i;
			}
		}
	//	printf("\n");
	//	printf("%c\n",a[max]);
		a[max]='0'-8;
		if(max==j)
		{
			j++;
		}
		n--;
	}
	for(i=0;i<stl;i++)
	{
		if(a[i]!='0'-8)
			printf("%c",a[i]);
	}
}

C++ :

#include<iostream>
#include<cstdio>
#include<cstdlib>
#include<cstring>
#include<algorithm>
#include<string>
using namespace std;

int main()
{
	string n;
	int s;
	cin>>n>>s;
	int len=n.length();
	for(int i=1;i<=s;i++)
	{
		for(int j=0;j<len-1;j++)
		{
			if(n[j]>n[j+1])
			{
				n.erase(j,1);
				break;
			}
		}
		len--;
	}
	for(int i=0;i<len;++i)
	{
		if(n[i]!='0')
			cout<<n[i];
	}
	return 0;
}

Pascal :

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