Построить числовую последовательность и определить, какая цифра стоит на ее k-й позиции - Free Pascal

Формулировка задачи:

Построить числовую последовательность и определить, какая цифра стоит на ее k-й позиции. в последовательность должны быть записаны четные числа из натурального ряда(2 4 8 6 10 12 14 16 ...)

Решение задачи: «Построить числовую последовательность и определить, какая цифра стоит на ее k-й позиции»

Листинг программы

var
  k,i:integer;
  s:string;
begin
  repeat
    write('k=');
    readln(k);
  until k>0;
  repeat
    i:=i+2;
    str(i,s);
    if k<=length(s) then writeln(s[k]);
    k:=k-length(s);
  until k<=0;
end.

Объяснение кода листинга программы

Объявлены переменные k, i, s типа integer и string соответственно.
Запускается цикл повторения, в котором пользователю предлагается ввести значение переменной k.
Цикл продолжается, пока значение k больше нуля.
Внутри цикла устанавливается значение переменной i равным i+2.
В переменную s записывается строковое представление значения переменной i.
Проверяется, что значение k не превышает длину строки s.
Если условие выполняется, то выводится k-й символ строки s.
Значение переменной k уменьшается на длину строки s.
Цикл повторяется, пока значение k не станет меньше или равным нулю.