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

Задача 21 Урок 13.1:

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

var
  a,b, n, m, m1:integer;
begin
  writeln('vvedite chislo: ');
  readln(n);
  b:=1;
  a:=1;
  m:=1;
  m1:=m;
  repeat
    if ((b mod 2)=1)and((a mod 2)=0) then
      begin
        write(a, ' ');
        m:=m-1;
      end
    else
      if ((b mod 2)=0)and((a mod 2)=1) then
      begin
        write(a, ' ');
        m:=m-1;
      end;
    if m=0 then
    begin
      writeln();
      m:=m1+1;
      m1:=m;
      b:=b+1;
    end;
    a:=a+1;
  until (n<=a);
  readln();
end.  

Вывод консоли:

vvedite chislo:
30
2
3 5
6 8 10
11 13 15 17
18 20 22 24 26
27 29