Задача 5 Урок 14. Процедуры и функции

Урок 14. Процедуры и функции

{14 — 5 Пользователь передает целое положительное число N,
выведете на экран последовательность от 1 до N "ёлочкой", например для N=17:
1
2 3
4 5 6
7 8 9 10
11 12 13 14 15
16 17
ПРИМЕЧАНИЕ: для вывода очередной строки используйте отдельную подпрограмму.}

procedure str(x:integer; var symbol,lenght: integer);
begin
  write(x, ' ');
  symbol:=symbol+1;
  if (symbol=lenght) then
    begin
      writeln();
      lenght:=lenght+1;
      symbol:=0;
    end;
end;

var n,i,symbol,lenght: integer;
begin
  lenght:=1;
  writeln('wanna see tree? write num!');
  readln(n);
  for i:=1 to n do
    str(i,symbol,lenght);
  writeln('...');
  readln();
end.