[lmikle]

Да все просто.
Для начала делаешь запись для своих данных.

Код:

type
  TGraf = record
    No : Integer;
    X, Y : Integer;
    Edge : Integer;
  end;

Далее - в массиве держишь именно эти записи, т.е.:

Код:

var
  AGraf : Array Of TGraf;

Ну а сохранение и чтение через File Of:

Код:

procedure SaveGraf(AFileName : String);
var
  F : File Of TGraf;
  I : Integer;
begin
  AssignFile(F,AFileName);
  Rewrite(F);
  For I := Low(AGraf) To High(AGraf) Do Write(F,AGraf[i]);
  CloseFile(F);
end;

procedure LoadGraf(AFileName : String);
var
  F : File Of TGraf;
begin
  SetLength(AGraf,0);
  AssignFile(F,AFileName);
  Reset(F);
  While Not EOF(F) Do
    Begin
      SetLength(AGraf,Length(AGraf)+1);
      Read(F,AGraf[High(AGraf)]);
    End;
  CloseFile(F);
end;

Что-то типа так. Мог немного напутать с именами процедур, типа не Rewrite, а RewriteFile. В свое время их имена менялись, а с тех пор таким методом давно не пользовался...