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

Модифицируйте предыдущий вывод "ёлочкой" так, чтобы в каждой нечетной строке выводились только четные числа, а в каждой четной только нечетные.

var N, i, f, m, s: integer;
begin
  f := 0; //счетчик символов в строке
  m := 1; //необходимость символов в строке
  i := 1;  //счетчик основного ряда 
  s := 1; //счетчик строк
  writeln('Vvedite N > 0');
  readln(N);
    while (i <= N) do
      begin
        while (f <= m) do
          begin
            if (s mod 2 = 1) AND (i mod 2 = 0) then
              write(i, ' ')
            else if (s mod 2 = 0) AND (i mod 2 = 1) then
              write(i, ' ');
            f := f + 1;
            i := i + 1;
          end;
        writeln();
        m := m + 1;
        f := 0;
        s := s + 1;
      end;
  readln();
end.