Даны целое число k (1< =k< =150) и последовательность цифр , в которой выписаны подряд все трехзначные числа от 101 до 150. нужно определить k-ую цифру. решить нужно в pascal 3 с использованием строк и логических действий. заранее огромное .

Var k,n: integer;  
    s: string;
begin
  write('k = ');  readln(k);
  n:=k div 3;
  k:=k mod 3;
  n:=n+100;
  Str(n,s);
  if k=0 then writeln(s[3])  
  else writeln(s[k])  end.