Вывести на экран числа от 1 до N "обратной елочкой"

function Line(l,j,n:Integer):String;
var s:String; k:Integer;
begin
  if j>n then Result:=''
  else
    begin
      s:=line(l+1,j+l+1,n);
      Write(s); for k:=j to j+l do if k<=n then Write(k:4); WriteLn;
      Result:=s+'  ';
    end;
end;
 
var n:Integer;
begin
  Read(n);
  Line(0,1,n);
end.

var
  i, j, k, t, n: integer;
begin
  write('n = ');
  readln(n); //ввод числа (оно же первый текущий максимум)
  k := trunc((sqrt(8 * n - 7) - 1) / 2); //номер треугольного числа, предшествующего первому текущему максимуму
  t := k * (k + 1) div 2; //треугольное число, предшествующее первому текущему максимуму
  for i := k downto 0 do //цикл по номерам треугольного числа
    begin
      for j := t + 1 to n do write(j, ' '); //печать чисел от треугольного числа + 1 до текущего максимума
      writeln; //переход на новую строку
      n := t; //следующий максимум
      t := i * (i - 1) div 2 //следующее треугольное число, предшествующее максимуму
    end;
  readln
end.

var
  res, stroka: string;
  line, j, c, n: integer;
begin
  res := '';  stroka := '';  line := 1;  j := 0;
  write('n = '); readln(n);
  for c := 1 to n do
   begin
    stroka := stroka + inttostr(c) + ' '; 
    j := j + 1;
    if j = line then 
     begin
       res := stroka + #13#10 + res;
       stroka := '';
       line := line + 1;
       j := 0;
     end;
   end;
  if stroka <> '' then Writeln(stroka);
  Write(res);
end.