проблема с heaptrc y чайника

[AlexOff]

Компилирую fpc -gh

Запускаю и вижу:

Heap dump by heaptrc unit
0 memory blocks allocated : 0/0
0 memory blocks freed : 0/0
0 unfreed memory blocks : 0
True heap size : 0
True free heap : 0

Вопрос: что я делаю не так?

Код:

Код: Выделить всё

procedure input(var x,y:longint);

   var f:text;

   begin

      assign(f,'ievaddati.txt');

      reset(f);

      readln(f,x,y);

      close(f);

   end;



procedure output(var x:int64);

   var f:text;

   begin

      assign(f,'izvaddati.txt');

      rewrite(f);

      writeln(f,x);

      close(f);

   end;



var a:array[1..100]of int64; k,n,i,j:longint;

begin

   input(n,k);

   a[1]:=1;

   for j:=1 to n-k+1 do

      for i:=2 to k+1   do

         a[i]:=a[i]+a[i-1];

   output(a[i]);

end.

П.с. за ранее спасибо!

[Sergei I. Gorelkin]

Все правильно, эта программа просто не использует динамически выделяемую память.

[AlexOff]

спасибо

[ujif]

что значит "Компилирую fpc -gh" ,
и как запустить где он воще
модуль heaptrc (компиляция с ключом -gh)
тоже хотелось бы знать расход
динамической памяти

[Дож]

что значит "Компилирую fpc -gh"

Это значит в командной строке выполнить нечто типа

Код: Выделить всё

$ fpc -gh beginend.pas


и как запустить где он воще
модуль heaptrc (компиляция с ключом -gh)

В rtl компилятора (т.е. должен быть виден автоматически при стандартной настройке fpc).