Дано натуральное пятизначное число. Определить число сотен в нем — Pascal(Паскаль)

uses Crt;
var a,a1:word;
begin
clrscr;
readln(a);
a:=a div 10;
a:=a div 10;
a1:=a mod 10;
writeln(a1);
readln;
end.