Напишите программу,которая вводит четырехзначное число и вырезает из него вторую цифру(на языке паскаль)

program chisla;var a:integer;beginWrite('Введите четырехзначное число: ');read(a);if (a<=9999) and (a>=1000) then beginWriteln('Вторая цифра ',a div 100 mod 10);endelse Writeln('Это не четырехзначное число');end.