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

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.
задачу написал на языке паскаль