Помогите с Паскалем ABC. дано пятизначное число. определить сумму второй и четвёртой цифры.

Program chisla;

uses crt;

var a, b, c : integer;

begin

Write ('Введите пятизначное число: ') ;

readln (a) ;

if (a>99999) then Writeln ('Введено не пятизначное число')

else

begin

b:=a div 1000 mod 10;

c:=a div 10 mod 10;

Writeln ('Сумма 2 й и 4 й цифры этого числа равна: ', b+c) ;

end

end.