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

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

Пользователь передает целые положительные число N и M, выведете на экран последовательность от 1 до N, так чтобы ширина "ёлочки" увеличивалась до M чисел, то уменьшалась до 1. Например, для M=3 и N=19 получим:
123456--максимум три числа7891011121314--снова три числа1516171819.....$$\begin{gathered} 1 \\ 23 \\ 456\text{--максимум три числа} \\ 78 \\ 9 \\ 1011 \\ 121314\text{--снова три числа} \\ 1516 \\ 17 \\ 1819..... \end{gathered}$$

var M, N, c1, c2, i: integer;
  w: boolean;
begin
  writeln('Введите целое положительное число M:');
  readln(M);
  writeln('Введите целое положительное число N:');
  readln(N);
  i := 1;
  c1 := 1;
  c2 := 1;
  w := true;
  while i <= N do
   begin
    write(i, ' ');
    if c1 > c2 then c2 += 1
    else
     begin
      writeln();
      c2 := 1;
      if w then c1 += 1
      else c1 -= 1;
     end;
    if c1 = M then w := false;
    if c1 = 1 then w := true;
    i += 1;
   end;
  readln();
end.