[Страдалецъ]

Делать это можно кучей способов, например так:

Код:

Var SaveFile: File of Byte;
    B: Byte;
begin
AssignFile(SaveFile, 'c:\game\save.dat');
Reset(SaveFile);
Seek(SaveFile,30); 
Read(SaveFile, B); 
B := 100;
Seek(SaveFile,30);
Write(SaveFile, B);
CloseFile(SaveFile);
end;