8
TMemArray = array [0..MAX_SIZE div SIZE_INC] of pointer;
14
function Size(i: longint) : longint;
20
FillChar(MemArray,Sizeof(MemArray),#0);
21
for i:=0 to MAX_SIZE div SIZE_INC do
23
GetMem(MemArray[i],Size(i));
25
for i:=1 to MAX_SIZE div SIZE_INC do
27
FreeMem(MemArray[i],Size(i));
29
Writeln(stderr,'Everthing is fine');