Даны числа а и b, вывести все целые числа между ними

var a,b,max,min:integer;
 begin
   write('Введите а');
   readln(a);
   write('Введите b');
   readln(b);
     if a>b then
       begin
         max:=a;
         min:=b;
       end
     else 
         begin
           max:=b;
           min:=a;
         end;

  repeat
     write(max-1,' ');
  until max=min+1;
readln;
end;

var i,a,b :integer
begin

write ('vvedite a');
readln(a);
write ('vvedite b');
readln(b);

if a>b then begin
                      for i:=a downto b do writeln(i);
               writeln('kolvo chisel =', a-b);
               end
else begin
                      for i:=b downto a do writeln(i);
               writeln('kolvo chisel =', a-b);
               end;
end.

var a,b :integer
begin

write ('vvedite a');
readln(a);
write ('vvedite b');
readln(b);

if a>b then begin
                    writeln('kolvo chisel =', a-b);
                    for a:=a downto b do writeln(a);
               end
else begin
                    writeln('kolvo chisel =', a-b);
                    for b:=b downto a do writeln(b);
               end;
end.