Определить k-ю цифру последовательности 149162536, в которой записаны подряд квадраты всех натуральных чисел

uses crt;
var k,b,n,i,c,s,a: integer;
begin
clrscr;
write('Vvedite k=');readln(k);{номер цифры в ряду}
s:=0;
i:=0;
while s<k do{идем к этому номеру}
   begin
     i:=i+1;{увеличиваем число 1,2,3...}
     b:=i*i;{считаем его квадрат 1,4,9.....}
     c:=1;
     n:=10;
     while b div n <> 0 do{смотрим это число пока после деления не будет ноль}
       begin
         n:=n*10;{следующий разряд 100, 1000....}
         c:=c+1;{считаем его цифры}
       end;
    s:=s+c;{считаем сколько уже цифр в ряду прошли}
    write(b);{выводим числа на экран 1,4,9,16....}
  end;
s:=s-c;{возвращаемся к началу последнего числа-квадрата}
n:=n div 10;{уменьшаем разрядность 1000, 100, 10, 1}
while s<>k do{пока не дойдем точно до заданного номера цифры}
   begin
     a:=b div n mod 10;{берем его первую цифру}
     n:=n div 10;{уменьшаем его в 10 раз}
     s:=s+1;{идем вперед, пока не дойдем до номера к}
   end;
writeln;
write(a);{цифра на этом месте}
writeln;
readln
end.

var
a,k,i,kol:longint;
s:string;
begin
readln(k);
repeat
inc(a);
str(a*a,s);
for i :=1 to length(s) do
begin
inc(kol);
if kol=k then writeln(s[i]);
end;
until kol>=k;
end.