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

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

Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N, так чтобы ширина "ёлочки" росла волнами. Например, для N=49 получим:
1
2 3 --сначала до двух
4
5 6
7 8 9 --потом до трёх
10 11
12 --возвращаемся к одному
13 14
15 16 17
18 19 20 21 --тут уже четыре
22 23 24
25 26 --снова убывает
27
28 29
30 31 32
33 34 35 36
37 38 39 40 41
42 43 44 45
46 47 48
49

program Project1;
var m,n,i,j,n_poz:integer;
    cout:boolean;
begin
  i:=0;
  n_poz:=1;
  m:=2;
  cout:=true;
  write('Vvedite N: '); readln(n);
    for j:=1 to n do
    begin
      i:=i+1;
      write(j,' ');
      if(i=n_poz)then
      begin
        writeln();
        i:=0;
        if(cout)then
          n_poz:=n_poz+1
        else
          n_poz:=n_poz-1;
        if(n_poz=m)then
        begin
          cout:=false;
          m:=m+1;
        end
        else if(n_poz=1)then
          cout:=true;
      end;
    end;
  readln();
end.