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

var A, B, N, i, C : integer;
begin
  Writeln('A<B');
  repeat
    Write('Введите число A: ');
    Readln(A);
    Write('Введите число B: ');
    Readln(B);
    if (A>B) or (A=B)
    then Writeln('Ошибка ввода данных!');
  until A<B;
  C:=A;             // можно не заменять, если значение переменной A больше не пригодится
  for i:=A to B do  // и сделать так
  begin             // begin
    Write(C, ' ');  // Write(A, ' ');
    C:=C+1;         // A:=A+1;
    N:=N+1;         // N:=N+1;
  end;
  Writeln;
  Writeln('Кол-во чисел: ', N);
end.

var A, B, N, i : integer;
begin
  Writeln('A<B');
  repeat
    Write('Введите число A: ');
    Readln(A);
    Write('Введите число B: ');
    Readln(B);
    if (A>B) or (A=B)
    then Writeln('Ошибка ввода данных!');
  until A<B;
  while (A<B) or (A=B) do
  begin
    Write(A, ' ');
    A:=A+1;
    N:=N+1;
  end;
  Writeln;
  Writeln('Кол-во чисел: ', N);
end.

var A, B, N, i : integer;
begin
  Writeln('A<B');
  repeat
    Write('Введите число A: ');
    Readln(A);
    Write('Введите число B: ');
    Readln(B);
    if (A>B) or (A=B)
    then Writeln('Ошибка ввода данных!');
  until A<B;
  repeat
    Write(A, ' ');
    A:=A+1;
    N:=N+1;
  until A>B;
  Writeln;
  Writeln('Кол-во чисел: ', N);
end.