Дано целое положительное число А<10 вывести на экран все четные и нечетные числа отдельной строкой до А

program raf105;

var  

 i,n: integer;

begin

 write('Введите число: ');

 readln(n);

 write('Чётные: ');

 for i:=1 to n do

   if i mod 2 = 0

     then write(i,' ');

 writeln;

 write('Нечётные: ');

 for i:=1 to n do

   if i mod 2 <> 0

     then write(i,' ');

end.