Подготовка к региональной олимпиаде

[New man]

Задача лесенка

Лесенкой называется набор кубиков, в котором каждый
более верхний слой содержит кубиков меньше, чем преды-
дущий. Требуется написать программу, вычисляющую число
лесенок, которое можно построить из N кубиков.

Я попробывал, но не смог
Вот попытка:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

function Stairs(Blocks_Count,Blocks_In_Base:word):longword;
var BlocksInNewBase:word;
begin
  BlocksInNewBase:=1;
  result:=0;
  if (Blocks_Count = 0)or (Blocks_Count shl 1> Blocks_In_Base*(Blocks_In_Base-1))   then exit;
  result:=1; // всегда есть возможность выложить вообще в один слой все блоки
  while BlocksInNewBase*(BlocksInNewBase-1)<(Blocks_Count-BlocksInNewBase)shl 1 do
       begin
          inc(BlocksInNewBase);
          if BlocksInNewBase>=Blocks_In_Base then exit;
       end;
  for BlocksInNewBase:=BlocksInNewBase to Blocks_In_Base-1 do
     inc(result,Stairs(Blocks_Count-BlocksInNewBase,BlocksInNewBase));

  writeln('     Blocks_Count ----- ',Blocks_Count);
  writeln('     Blocks_In_Base --- ',Blocks_In_Base);
  writeln('     Result ----------- ',result);
end;
var n:Word;
begin
    readln(n);
    for n:=1 to n do
    writeln(n, '-------',stairs(n,n+1),#13#10#13#10#13#10#13#10);
    readln;
end.

Подскажите правильное решение, Пожалуйста