Вывести на экран в обратном порядке трехзначные натуральные числа

var i, j, count : integer;
begin
  count := 0;
  for i := 9 downto 1 do
    for j := 9 downto 0 do
    begin
      writeln(100*i+50+j); inc(count);
    end;
  writeln('Количество = ', count);
end.

begin
  WriteLn('Введите трёхзначные натуральные числа:');
  Write('A = '); var A := ReadInteger();
  if Not (A in [100..999]) then begin WriteLn('Нужно от 100 до 999'); Halt; end;
  Write('B = '); var B := ReadInteger();
  if Not (B in [100..999]) then begin WriteLn('Нужно от 100 до 999'); Halt; end;
  WriteLn;
  if A > B then Swap(A, B);
  A := Max(A, 150);
  B := Min(B, 159);
  if (A in [150..159]) and (B in [150..159]) then
    begin
      WriteLn('Количество = ', Succ(B-A));
      for var n := B downto A do
        Write(#32, n);
      WriteLn;
    end
  else
    WriteLn('Количество = 0');
end.

var 
  A, B : integer;
  i, count : integer;
begin
  WriteLn('Введите трёхзначные натуральные числа:');
  repeat Write('A = '); A := ReadInteger();
  until A in [100 .. 999];
  repeat Write('B = '); B := ReadInteger();
  until B in [100 .. 999];
  
  count := 0;
  for i := Max(A, B) downto Min(A, B) do
    if (i div 10) mod 10 = 5 then
    begin
      writeln(i); inc(count);
    end;
  writeln('Количество = ', count);
end.