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.