Два способа вывести нечетные числа в диапазоне [a,b] с помощью цикла FOR — Pascal(Паскаль)

VAR
  a, b, i: Longint;
BEGIN
 WriteLn('    Нечетные числа с помощью цикла FOR');
 WriteLn('Введите разделенные пробелом два числа в диапазоне от -2147483648 до 2147483647:');
 ReadLn(a, b);
 if a > b then
 {Поменяем местами}
 begin
   i := b;
   b := a;
   a := i
 end;
 WriteLn('Нечетные числа в диапазоне от ',a,' до ',b);
 for i:=a to b do
   if Odd(i) then Write(i,'  ');
 WriteLn;
 WriteLn('Второй способ:');
 if NOT ODD(a) then a := a + 1;
 for i := a to b do
 begin
   Write(i,'  ');
   i := i + 1
 end;
END.