Вывести все целые числа - Pascal

Формулировка задачи:

Даны 2 целых А и В (А<В). Вывести все целые числа, расположенные между данными числами (не включая сами эти числами), в порядке их убывания, а также количество N этих чисел.

program CIKL;
var n,k,a,b:integer;
begin
while true do
begin
write('vvedite a ');
readln(a);
write('vvedite b ');
readln(b);
if (a<b) then
exit;
end;
k:=0;
for n:=b-1 downto a+1 do
begin
writeln(n);
inc(k);
end;
writeln(k);
readln;
end.

Помогите найти ошибку!!!!!!!

Решение задачи: «Вывести все целые числа»

Листинг программы

program CIKL; {заголовок программы}
var n,a,b,k:integer; {все переменные целого типа}
 
begin {начало программы}
repeat {цикл для проверки ввода}
 write('Введите a: ');
 readln(a); {ввод числа а}
 write('Введите b: ');
 readln(b); {ввод числа b}
until a<b; {выход из цикла будет только тогда, когда а<b}
k:=0; {обнуление количества элементов, иначе выйдет ерунда в конечном итоге}
for n:=b-1 downto a+1 do {вывод целых чисел расположенных между а и b циклом со счетчиком}
 begin
     write(n,' '); {выводим очередное целое число на экран}
     inc(k); {аналогично k:=k+1, т.е. прибавляем к количеству единичку с каждый проходом цикла, т.е. с каждым новым целым числом}
 end;
 writeln; {вывод пустой строки на экране для удобства}
 writeln('Количество элементов -> ',k); {собственно вывод искомого количества элементов}
 readln; {задержка до нажатия клавиши}
end.{собственно конец}

Объяснение кода листинга программы

Заголовок программы: program CIKL;
Объявление переменных: var n,a,b,k:integer;
Цикл для проверки ввода: repeat write('Введите a: '); readln(a); write('Введите b: '); readln(b); until a<b;
Обнуление количества элементов: k:=0;
Цикл для вывода целых чисел: for n:=b-1 downto a+1 do begin write(n,' '); inc(k); end;
Вывод пустой строки: writeln;
Вывод количества элементов: writeln('Количество элементов -> ',k);
Задержка до нажатия клавиши: readln;
Конец программы: end.