type
     TStrateg=record
           karta:array[1..100,1..100]of byte;   // карта игры с номером тайла
           personaj:array[1..50]of string[25];  // имена персонажей
     end;  

type
     TPers=record
          name:string[10];   //Volodorn
          jizn:word;         //Жизни 1000
          oruj:boolean;      //оружие доступно
          patron:integer;    //патроны
          ...
     end;
     TStrateg=record
           karta:array[1..100,1..100]of byte;   //
           personaj:array[1..50]of TPers;  //
     end;      

    var fil:file of TStrateg;
    //....................
    assignfile(fil,extractfilepath(application.ExeName)+'papka\filename');
    {$i-} reset(fil); {$i+}
    read(fil,g);
    closefile(fil);

    assignfile(fil,extractfilepath(application.ExeName)+'papka\filename');
    rewrite(fil);
    write(fil,g);
    closefile(fil);

const
      max=50;
//....
type
      TMapa=record
            img:byte;
            zona:byte;
            prohodimost:boolean;
      end;
      TData=record
            sila:integer;
            jizn:word;
            skorost:byte;
      end;
      Tpovelitel=record
            tip:TData;
            zombi:array[1..max]of TData;
      end;
      TIgra=record
            povelitel:array[1..5]of Tpovelitel;
            gg:TData;
            mapa:array[1..100,1..100]of TMapa;
      end;
//....
var g:TIgra;
//....
     g.povelitel[2].zombi[5].sila:=100;
     g.povelitel[3]:=g.povelitel[1];