有什么错？ 只有10分

var

a:array[-5..5000000] of boolean;

s:string;

s1:string;

n,m,k,i,j,l,r:longint;

begin

readln(m,k);

fillchar(a,sizeof(a),false);

a[1]:=true;

i:=1;n:=1;

s:='1';

while i0 do

begin

dec(k);

j:=1;

while (s[j]>=s[j+1]) and (j1) do delete(s,1,1);

writeln(s);

end.