Nếu  X có tối đa 105 chữ số thì bạn chuyển ansistring thành string.

Còn nếu X có tối đa $10^{5}$ chữ số thì bạn vẫn để ansistring nhé.

=============================================

program Hello;
uses crt;
var s:ansistring;
    m,n,i,j:byte;
    o:string;
procedure xoa;
begin
    m:= length(s) - m;
    o:= '0';
    j:= 0;
    while i < m do
        begin
            if pos(o,s) > 0 then 
                begin
                    delete(s, pos(o,s),1);
                    inc(i);
                end
            else
                begin
                    inc(j);
                    str(j,o); 
                end;
        end;
end;
begin   
    readln(s);
    readln(m,n);
    xoa;
    writeln(s[n]);
end.

var x:ansistring;
    ma:char;
    n,m:longword;
    f1,f2:text;
procedure try(s:ansistring);
var t:ansistring;
    i:word;
begin
    if length(s) < m then exit;
    if s[n] > ma then ma:=s[n];
    if n<>1 then
        begin
            t:=s;
            delete(t,n-1,1);
            try(t);
            t:=s;
            delete(t,n+1,1);
            try(t);
        end
    else
        for i:=1 to length(s) do if ma < s[i] then ma:=s[i];
end;
begin
    assign(f1,'DELDIGIT.INP');reset(f1);
    assign(f2,'DELDIGIT.OUT');rewrite(f2);
    readln(x);
    readln(m,n);
    ma:='0';
    try(x);
    writeln(ma);
    close(f1);close(f2);
end.