Указатель динамической памяти и ошибка Invalid pointer operator

program  privacy;
type
  p1   =array[2..32765] of boolean;
const
  low=2;
  up=32765;
var
  i,c,k :longint;
  out :text;
  p   :^p1;
  chis,chis1:string;
procedure print;
  const
    size=6;
    numcol=10;
  var
    i,n:integer;
  begin
    n:=0;
    for i:=2 to up do
      if p^[i] then
      begin
        write(out,i:size);
        n:=n+1;
        if n mod numcol=0 then writeln(out);
      end;
    writeln(out);
  end;
begin
 assign(out,'chis.txt');
 rewrite(out);
 for k:=1 to 3 do begin getmem(p,sizeof(p1));
  for i:=low to up do p^[i]:=true;
  c:=low;
  while 2*c<=up do
  begin
    for i:=2 to (up div c) do p^[i*c]:=false;
    repeat c:=c+1 until p^[c] or (2*c>up);
  end;
  print;
 end;
 for k:=1 to 3 do freemem(p,sizeof(p1));
 close(out);
end.

program  privacy;
type
  p1=array[2..32765] of boolean;
const
  low=2;
  up=32765;
var
  i,c,k :longint;
  out :text;
  p   :^p1;
  chis,chis1:string;
procedure print;
  const
    size=6;
    numcol=10;
  var
    i,n:integer;
  begin
    n:=0;
    for i:=2 to up do
      if p^[i] then
      begin
        write(out,i:size);
        n:=n+1;
        if n mod numcol=0 then writeln(out);
      end;
    writeln(out);
  end;
begin
 assign(out,'chis.txt');
 rewrite(out);
 for k:=1 to 3 do
  begin
   getmem(p,sizeof(p1));
   for i:=low to up do p^[i]:=true;
   c:=low;
   while 2*c<=up do
    begin
     for i:=2 to (up div c) do p^[i*c]:=false;
     repeat
     c:=c+1
     until p^[c] or (2*c>up);
    end;
  print;
 {end;
 for k:=1 to 3 do}
 freemem(p,sizeof(p1));
 end;
 close(out);
 readln
end.