Выведите все целые числа, расположенные между A и B (не включая числа A и B), а также количество N этих чисел — Pascal(Паскаль)

program For3;

var
  A, B: integer;
  temp: integer;
  i: integer;

begin
  temp := 0;
  repeat
    writeln('Введите A и B:');
    readln(A, B);
  until (A < B);
  for i := B - 1 downto A + 1 do
  begin
    temp := temp + 1;
    write(i, ' ');
  end;
  writeln('количество чисел:', temp);

end.