Задача 20 Урок 13.1

Задача 20 Урок 13.1

Модифицируйте предыдущий вывод "ёлочкой" так, чтобы в каждой нечетной строке выводились только четные числа, а в каждой четной только нечетные, например для N=17:
3
4 6
7 9
12 14
15 17

var
  a, i, j, count: integer;
begin
  a:= 18;//число введенное пользователем
  j:= 0; //количество символов в строке
  count:= 1;//счетчик
  i:= 1;
  while (i <= a) do
     begin
       if (j < count)then
          begin
            if ((count mod 2) <>0) and ((i mod 2) = 0) then
             write(i, ' ')
            else if ((count mod 2) = 0) and ((i mod 2) <> 0) then
             write(i, ' ');
             i:= i + 1;
             j:= j + 1;
          end
       else if (j = count) then
          begin
            writeln();
            j:= 0;
            count:= count + 1;
          end
     end;
  readln();
end.