Есть числовой ряд: , в котором подряд выписаны все двухзначные числа. определить двухзначное число из этого ряда, образованное парой цифр, в которую входит k-ая цифра. k вводится и лежит в диапазоне от 1 до 180. например, если вводится k=3, то в ряду это цифра 1, которая входит в двухзначное число 11.

Program test ;
Var
a:string;
k, i, i1:integer;
Begin
If k<=180 then begin
For i:=1 to 9 do begin
For i1:=0 to 9 do a:=a+str(i*10+i1);
End;
If k mod 2 = 0 then writeln(copy(a,k-1,2));
Else writeln(copy(a,k,2);
End;
Else writeln('Введённое число больше допустимого значения');
End;