Дано трехзначное число найти число десятков в нем

Var n,a;integer; begin  assign(input,'input.txt');reset(input); assign(output,'output.txt');rewrite(output); read(n); a:=(n mod 100) div 10; write(a); close(input); close(output); end. задачу написал на языке паскаль