cifre

Ne znam zasto mi kod ovog zadatka izbaci za zadnja 3 test primera "Izlazni kod nije 0".

program cifre;
var x,i,n,m,a,b,c,d:integer;
y:array[1..10000]of longint;
begin
x:=10;
m:=100;
b:=1000;
readln(n);
for i:=1 to n do
begin
if(i<10)then
y[i]:=i;
if(i>=10)and(i<100)then
begin
y[x]:=i div 10;
y[x+1]:=i mod 10;
x:=x+2;
end;
if(i>=100)and(i<1000)then
begin
y[m]:=i div 100;
a:=i mod 100;
y[m+1]:=a div 10;
y[m+2]:=i mod 10;
m:=m+3;
end;
if(i>=1000)and(i<10000)then
begin
y[b]:=i div 1000;
c:=i mod 1000;
y[b+1]:=c div 100;
d:=c mod 100;
y[b+2]:=d div 10;
y[b+3]:=i mod 10;
b:=b+4;
end;
end;
writeln(y[n]);
end.