Viết chương trình pascal. Các bạn giúp mình nhé

var k,i,mu,s,so,t: int64;
    d: string;
begin
    assign(INPUT,'timso.inp'); reset(INPUT);
    assign(OUTPUT,'timso.out'); rewrite(OUTPUT);
    Read(k);
    i:= 1; mu:= 1; t:= 9;
    While t < k do
        begin
            inc(i);
            mu:= mu*10;
            t:= t + i*9*mu;
        end;
    k:= k - (t - i*9*mu);
    If k mod i = 0 then s:= k div i
        else s:= k div i +1;
    so:= mu + s-1;
    If k mod i = 0 then k:= i 
        else k:= k mod i;
    str(so,d);
    Write(d[k]);
end.
//// ey, nếu bạn muốn kiểm tra code trên ntuocder thì đóng 2 lệnh nhập tệp nhé.

//// nếu bạn thắc mắc tại sao mình sao test 19 sai ở lần nộp trước thì mình lấy code của bạn lenguyenminhhaik8 test nhé. code của mình chắc chắn full.