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

program f;

uses crt;

var
  k, i, n: integer; { описание переменных }
  s, x: string;

begin
  write('Do kakogo natur. cisla sdelati posledovatelinosti? ');
  readln(n); { считываем натуральное число }

  x := '';
  for i := 1 to n do { цикл от 1 до введенного числа }
  begin
    str(i, s);
    x := x + s; { формируем строку из последовательности цифр }
  end;

  clrscr; { чистим экран }
  writeln(x); { выводим получившуюся последовательность цифр }
  writeln;

  write('Vvedite K: ');
  readln(k); { считываем K }
  writeln('Otvet: ', x[k]); { выводим ответ }

  readln;

end.