Решите по информатике. на паскале (фри) вывести все нечетные числа от 1 до заданного n 1)в порядке возрастания 2)в порядке убывания

Var
  n, i : integer;
begin
  write('n: ');
  readln(n);
  
  for i := 1 to n do
    if i mod 2 = 1 then
      write(i, ' ');

  writeln;

  for i := n downto 1 do
    if i mod 2 = 1 then
      write(i, ' ');
end.