Чтение из файла Опции

[Женя]

Вот какая задача: есть датовский файлик (*.dat), в который сохраняется текущее состояние при работе с неким приложением (например сейв в игре).
При просмотре вьювером выдает полную абракадабру соответственно. Шестнадцатиричным редактором же (типа VC и т.д.) открывается нормально - в смысле как положено выводит строки по 16 пар hex цифр. Так вот - нужно эти данные в hex формате загнать в текстовый файл и потом оттуда построчно считывать... Буду благодарен за любую помощь.

[volvo]

var
  f: file of byte;
  f_out: text;
  b, count: byte;

begin
  assign(f, 'yourfile.dat');
  reset(f);

  { открыть файл f_out }

  count := 1;
  while not eof(f) do begin
    read(f, b);
    write(f_out, fromdec(b, 16):4);
    inc(count);
    if count = 16 then begin
      writeln(f_out); count := 1;
    end;
  end;

  { закрыть файл f_out }

  close(f);
end.

Функция FromDec лежит здесь: FAQ: Общие вопросы по математике
Можешь добавить еще одну функцию, которая будет добавлять незначащие нули перед числами (для красоты)