Помогите пожалуйста, как это сделать в паскале. Введите трехзначное число и выведите среднюю цифру.

var a,b:integer;
begin
write('vvedite chislo=');
readln(a);
b:=a mod 100 div 10;
writeln(b);
end.

Объяснение:
a div b - находит целую часть от деления a на b, например 7 div 2=3
a mod b - находит остаток от деления a на b, например 7 mod 2=1