Стек. Освобождение памяти

[kuy]

Здравствуйте. Помогите пожалуйста розобратся с задачей:
Задан одномерный массив целых чисел, который инициализировать как константу. Записать массив в стек, выбрать элементы из стека (процедура) и освободить память, которую они занимали.
Наробки:

program Stek;
{$APPTYPE CONSOLE}
uses SysUtils;
var m: array[1..11] of integer = (9,4,2,4,5,6,1,8,0,1,7);
    i:integer;
begin
 writeln('Mas:');
 for i:=1 to 11 do write(m[i]:2);
 readln;
end.

[kuy]

Вижу обо мне забыли сдесь..)). Я почти всё вроди как сделал, осталось только освободить память которую стек занимает. Почитал там процедура FreeMem(удаляет элементы) есть и SizeOf(подщитует розмер в байтах), но применить я нуб никак не могу, всё ошибки всякие выдаёт. Помогите вобщим, думаю для вас сдесь не сложно пару строк дописать.

program Stak;
{$APPTYPE CONSOLE}
uses SysUtils;

var
  Stack: array[0..255] of integer; 
  StackPointer: Byte;

  procedure Push(Value:integer); //пишем в стек
   begin
    Inc(StackPointer);
    Stack[StackPointer]:=Value;
   end;

  function Pop:integer; //читаем из стека
   begin
    Result:=Stack[StackPointer];
    Dec(StackPointer);
   end;

var
  i:integer;
const
  m: array[1..11] of integer = (9,4,2,4,5,6,1,8,0,1,7);
begin
 writeln('Mas:');
 for i:=1 to 11 do write(m[i]:2);  //выводим массив
 for i:=1 to 11 do Push(m[i]);     //заганяем массив в стек
 writeln;
 writeln('Stack:');
 for i:=1 to 11 do write(Pop:2);   //читаем стек
readln;
end.

[veniside]

Освободить можно только динамически выделенную память, которой у вас просто нет.

[kuy]

И как же это всё написать с выделением динамической памяти??

[hiho]

var
   A : array of integer;
begin
   SetLength(A,10); - создание динамического массива из 10 элементов
   Length(A) - длинна массива {10}
   High(A) - номер последнего элемента = Length(A)-1 {9} 
end;

[kuy]

Хм.. условии сказано же что массив как константу инициализовать, а не как переменную. Лабу уже не здам канешно, но хочу решить, а оно не решаетса.