问如何将这个2d数组的内容保存到文件中

EN

TBoard = Array [0..7, 0..7] of Char;

procedure SaveGame;
//When having fixed size types you can use File of Type to quickly get
//ability to store whole type at once. 
//Note this only works for fixed sized records who don't contain any 
//dynamic sized members (strings, dynamic arrays) and static arrays of
//fixed sized type (no strings or other dynamic sized arrays)
//
//With arrays it doesn't even matter whether they are one dimensional 
//or multidimensional. but they need to be static
var Savefile: File of TBoard;
    FileName: String;
begin
  Filename := 'D:\Proba.txt';
  //Assign file
  Assignfile(Savefile,FileName);
  //Check if the file exists if it does open it for editing (reser)
  //else open it in rewrite mode which also automatically creates new 
  //file if the file doesn't exists
  if not Fileexists(Filename) then
    Rewrite(Savefile)
  else
    Reset(SaveFile);

  //Becouse we have a file of fixed sized type we can write the whole 
  //type with just one Write command 
  //your program already know how many bytes it has to write
  //
  //Note if you want to store multiple savegames in a single file you
  //need to use seek to move your current position
  //And because we have file of type the seek moves the current position
  //by N times of the type size
  //So if the size of your type is 64 bytes calling Seek(YourFile,2) 
  //will move current position to the 128th byte
  Write(SaveFile, Board);
  //Close file
  CloseFile(SaveFile);
end;

Read(Savefile, Board); 

procedure TForm9.FileSaveClick(Sender: TObject);
var
  i, j: integer;
  fn: string;
  fs: TFileStream;
  fw: TWriter;
begin
  fn := 'c:\tmp\mychessfile.dat';
  fs := nil;
  fw := nil;
  try
    fs := TFileStream.Create(fn, fmCreate or fmShareDenyWrite);
    fw := TWriter.Create(fs, 1024);
    for i := 1 to BoardDimension do
      for j := 1 to BoardDimension do
        fw.WriteString(Board[i, j]);
  finally
    fw.Free;
    fs.Free;
  end;
end;

procedure TForm9.FileReadClick(Sender: TObject);
var
  i, j: integer;
  fn: string;
  fs: TFileStream;
  fr: TReader;
begin
  fn := 'c:\tmp\mychessfile.dat';
  fs := nil;
  fr := nil;
  try
    fs := TFileStream.Create(fn, fmOpenRead or fmShareDenyWrite);
    fr := TReader.Create(fs, 1024);
    for i := 1 to BoardDimension do
      for j := 1 to BoardDimension do
          Board[i, j] := fr.ReadString;
  finally
    fr.Free;
    fs.Free;
  end;
end;

[d1]
1=element1
2=element2
...
[d2]
1=element1
...

<array>
  <d1>
    <element1>value1</element1>
    <element2>value1</element2>
    ...
  </d1>
  <d2>
    <element1>value1</element1>
    ...
  </d2>
</array>