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

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