Forum.iFiction.Ru

Смотря что ты хочешь сохранить или загрузить. Если набор переменных, то что может быть проще создания файла без типа и записи в него всех переменных:

procedure SaveGame();
var F : file;
begin
   Assign(F,'game001.sav');
   Rewrite(F,1);
   BlockWrite(F,GamerName,SizeOf(GamerName));
   BlockWrite(F,LocationCode,SizeOf(LocationCode));
   BlockWrite(F,Money,SizeOf(Money));
   Close(F);
end;

procedure LoadGame();
var F : file;
begin
   Assign(F,'game001.sav');
   Reset(F,1);
   BlockRead(F,GamerName,SizeOf(GamerName));
   BlockRead(F,LocationCode,SizeOf(LocationCode));
   BlockRead(F,Money,SizeOf(Money));
   Close(F);
end;

Здесь GamerName, LocationCode, Money - это имена переменных, используемых в игре.