我试了下
可以编译
  但不知道你要删除什么东西`
  不晓得对不对了`

你是不是要删除开头的几个素数？？？如果是的话，你原程序的表达意思就错了，而且你实际上对P没有赋值(P^.NEXT:=HEAD^.NEXT),P没有被分配地址，所以204错误-无效指针操作
type pointer=^node;
     node=record
            data:integer;
            next:pointer;
          end;
var p,q,head:pointer;
    x:integer;

procedure delete;
  var p,q:pointer;
      j:integer;
      k:boolean;
  begin
    p:=head;k:=true;
    for j:=2 to p^.data-1  do
      if p^.data mod j=0 then k:=false;
     while k=true do
        begin
          q:=p^.next;
          dispose(p);
           p:=q;
           for j:=2 to p^.data-1 do
      if p^.data mod j=0 then k:=false;
         end;
     head:=p;
  end;

procedure print;
  var j:pointer;
  begin
  j:=head;
  while j<>nil do
    begin
      write(j^.data:8);
      j:=j^.next;
    end;
  end;

begin
  write('lian biao ,-1 end:');
  head:=nil;
  read(x);
  while x>=0 do
  begin
    if head=nil then
      begin
        new(p);
        p^.data:=x;
        p^.next:=nil;
        q:=p;
        head:=p
      end
    else
      begin
        new(p);
        p^.data:=x;
        p^.next:=nil;
        q^.next:=p;
        q:=p;
      end;
    read(x)
  end;
  delete;
  print;
end.

谢谢大家，结贴

d