Дано натуральное K. напечатать К-ю цифру последовательности 12345678910111213…,в которой записаны подряд все натуральные числа — Pascal(Паскаль)

{дано нат. K. напечатать К-ю цифру последовательности 12345678910111213...,
 в которой записаны подряд все натуральные числа}
program  borlpasc;
var i,j,k,n,o:integer;
    a,t:longint;
begin write('Введите k=');readln(k);
      t:=0;i:=0;
      repeat t:=t+1;
             j:=t;
             while j>0 do{считаем количество цифр в числе
                          и добавляем к общему количеству}
                   begin j:=j div 10;
                         i:=i+1;
                         {if i=k then o:=j mod 10;}
                   end;
      until i>=k;
      while i>=k do{возвращаемся по цифрам последнего числа
                    до нужной}
         begin o:=t mod 10;
               t:=t div 10;
               i:=i-1;
         end;
      writeln('k-я цифра:',o)
end.