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

Как-то путано вопрос задан, попробую угадать, что вы хотите.
Допустим у вас есть необходимость записать ваш возраст в файл.
Делаем так:

Код:

Var f: file of byte;
     b: Byte; 
begin
 AssignFile(f, 'c:\Old.dat');
 Rewrite(f);
 b := 20;
 Write(f, b);
 CloseFile(f);
end.

Считать соответственно можно так:

Код:

Var f: file of byte;
     b: Byte; 
begin
 AssignFile(f, 'c:\Old.dat');
 Reset(f);
 Read(f, b);
 CloseFile(f);
end.