问题 A: [贪心算法]删数问题

删数问题 delete.pas/c/cpp

输入一个高精度的正整数ｎ（<=240位），去掉任意ｓ个数字后剩下的数字按原左右次序将组成一个新的正整数。编程对给定的ｎ和ｓ，寻找一种方案，使得剩下的数最小。
【输入样例】
175438
4
【输出样例】
13

var
 s:string;
 i,n,j,k:longint;
begin
 readln(s);
 readln(n);
 i:=1;
 for j:= 1 to n do
  for i:= 1 to length(s) do
   if i=length(s) then
    begin
     delete(s,i,1);
     break;
    end else
   if s[i]>s[i+1] then
    begin
     delete