type
  point=^node;
  node=record
         x,y:integer;
       end;
var
  p:point;
  s:array[1..100] of point;
begin
...
end;
这样就可以……