Необходимо написать программу выводящую кортеж содержащий числа в полуинтервале [a ;b) если a <b и[b ;a)если b<a числа а и b вводятся с клавиатуры​

var  a, b, n, i: integer; begin  Writeln('Введите два числа через пробел: ');  Read(a, b);  if a < b then    n := b - a  else n := a - b;  for i := 1 to n do    if a < b then    begin      a += 1;      Write(a, ' ');    end    else if b < a then begin      a -= 1;      write(a, ' ');    end; end.