Спосіб зберігання даних

for i:=1 to m do begin
   read(x,y);
   if (x<>y){and(seta[x,y]<>1)}then begin
      inc(p);
      list[p]:=y;
      next[p]:=curs[x];
      curs[x]:=p;
      list1[p]:=x;
      next1[p]:=curs1[y];
      curs1[y]:=p;
      //seta[x,y]:=1;
   end;
end;