Можно ли создать динамический массив?

uses crt;
var
a:integer;          //ìåíþ
p: ^array[1..maxint div sizeof(integer)] of integer;        //óêàçàòåëü:^äàííûå
t,d,i: integer;
 
//âûâîä òåêóùåãî ñîñòîÿíèÿ ñòåêà íà ýêðàí
procedure  output;
           begin
           if t<>0 then
              begin
              for i:=1 to t do
              Write(p^[i], ' ');
              writeln();
              end
           else
              writeln('Còåê ïóñò!');
           end;
//ôóíêöèÿ ïðîâåðêè ïóñòîòû ñòåêà
procedure pust;
         begin
         if t=0 then
            writeln('Còåê ïóñò!')
            else
                writeln('Còåê íå ïóñò!');
         end;
//ïðîöåäóðà äîáàâëåíèÿ ýëåìåíòà â âåðøèíó ñòåêà
procedure push(c :integer);
          begin
          t := t + 1;
          GetMem(p, SizeOf(integer)*1);
          p^[t] := c;
          end;
//ïðîöåäóðà äîáàâëåíèÿ n ýëåìåíòîâ â âåðøèíó ñòåêà
procedure push_n(n :integer);
          begin
          Randomize;
          t := t + n;
          GetMem(p, SizeOf(integer)*n);
          for i:=t-n+1 to t do
          p^[i] := Random(10);
          end;
//óäàëåíèå ýëåìåíòà èç âåðøèíû ñòåêà
procedure pop;
           begin
           if t<>0 then
              begin t := t - 1;
           GetMem(p, SizeOf(integer)*t);        end
           else
               writeln('Còåê ïóñò!');
           end;
//âûâîä òåêóùåãî ñîñòîÿíèÿ íà ýêðàí
 
//ãëàâíàÿ ïðîãðàììà
begin   clrscr;
a:=77;
t:=0;
//èíèöèàëèçàöèÿ ïóñòîãî ñòåêà
p:=nil;
 
 
//îðãàíèçàöèÿ äèàëîãîâîãî öèêëà ñ ïîëüçîâàòåëåì.
while (a<>0) do
  begin
   GetMem(p, SizeOf(integer)*t);      //äèíàìè÷åñêîå âûäåëåíèå ïàìÿòè
     writeln('ìåíþ:');
     writeln('1-ïðîâåðêà ïóñòîòû ñòåêà');
     writeln('2-äîáàâëåíèå îäíîãî ýëåìåíòà â âåðøèíó');
     writeln('3-äîáàâëåíèå íåñêîëüêè÷ ýëåìåíòîâ â âåðøèíó');
     writeln('4-óäàëåíèå ýëåìåíòà è âåðøèíû ñòåêà');
     writeln('5-âûâîä òåêóùåãî ñîñòîÿíèÿ ñòåêà');
     writeln('0-âûõîä');
     read(a);
     case a of
          1:    pust();
          2:    begin
                     writeln('ââåäèòå ÷èñëî');
                     read(d);
                     push(d);
                     output();
                end;
          3:    begin
                     writeln('ââåäèòå êîëè÷åñòâî ñèìâîëîâ');
                     read(d);  //òóò d - êîëè÷åñòâî
                     push_n(d);
                     output();
                end;
          4:    begin
                     pop();
                     output();
                end;
          5:    output();
          0: exit;
          end;
  end;
 
end.