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

program For2;

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

begin
  temp := 0;
  repeat
    writeln('Введите A и B:');
    readln(A, B);
  until (A);
  for i := A to B do
  begin

    temp := temp + 1;
    write(i, ' ');

  end;
  writeln('количество чисел:', temp);

end.