Задача Последовательность.

[olimpiadnik]

На доске выписана последовательность квадратов целых чисел, без пробелов, начиная с единицы: 1 4 9 16 25 36 49 64 10... . Найдите n-ую цифру в этой последовательности№
формат входных данных
В единственной строке входного файла задается n(1<=n<=1000000).
формат выходных данных
выведите ответ на задачу

Народ помогите с решением пжл? кто чем может.

[Z1000000]

program lab;
var
 n,i,index : Integer;
 tmp : String;
begin
Read(n);
i := 1;
index := 0;
while ( True ) do
 begin
 Str(sqr(i),tmp);
 if n <= index + Length(tmp) then
  begin
  tmp := Copy(tmp,n - index,1);
  break;
  end;
 index := index + Length(tmp);
 i := i + 1;
 end;
writeln(tmp);
end.

[olimpiadnik]

Рахмер братишка, Жизнь спас!