Ошибка в коде.
Рассмотрим фрагмент кода.
Строка 7: a := a + 1;
Строка 8: writeln('a = ', a + 1);
В седьмой строке вы увеличиваете значение а на один, а в восьмой, в выводе, вы используете а увеличенное ещё на один! Таким образом вы увеличиваете переменную a на один дважды.
Решение: уберите строку 7.
Тоже самое касается и вычитания.
Таким образом, для того, чтобы всё работало как надо, убрать нужно строки 7 и 11.
Либо можно в выводе писать просто а.
