Помогите с Паскалем ABC. дано пятизначное число. найти сумму 2-ой и

Program chisla;
uses crt;
var a,b,c : integer;
begin
Write('Введите пятизначное число: ');
readln(a);
if (agt;99999) then Writeln('Введено не пятизначное число')
else
begin
b:=a div 1000 mod 10;
c:=a div 10 mod 10;
Writeln('Сумма 2й и 4й цифры этого числа одинакова: ',b+c);
end
end.