С клавиатуры вводятся два целых числа, вывести в порядке возрастания все целые числа расположенные между А и В

Pascal ABC:

var a, b: Integer;
begin
readln(a);
readln(b);
b:=b-1;
for a:=a+1 to b do
writeln(a);
end.

Пример:
Вводим 1 и 5. Получаем:
2
3
4