Побайтовое чтение с редактированием

[DedBoroda]

Всем доброго времени суток.
Столкнулся с такой проблемой:
программа должна воспроизводить изображение. Изображение хранится в зашифрованном виде(побайтовый сдвиг).
Как можно прочитать файл побайтово в динамический массив(с возможностью работать с каждым байтом) с последующей выгрузкой в поток и выводом на экран?

Примерная функция кодирования/декодирования:

procedure Codek(fl:string);
var i:integer;
    buf:byte;
begin
assignfile(f2,fl+'x');
rewrite(f2);
assignfile(f1,fl);
reset(f1);
while not eof(f1) do
  begin
    Read(f1,buf);
    buf := Ord(Chr(255-buf));
    Write(f2,buf);
  end;
closefile(f1);
closefile(f2);
end;

Нашел вот такой кусок кода:

var
  F : File;
  Arr : array of Byte;
  Len : Integer;
  Stream : TMemoryStream;

AssignFile(F, Fn);
  Reset(F, 1);
 
  Len := FileSize(F);
  SetLength(Arr, Len);
  BlockRead(F, Pointer(Arr)^, Len);
 
  CloseFile(F);

Но не вижу(или невозможно) как можно работать с самими байтами.

[DedBoroda]

Всё сам уже разобрался

assignfile(f1,fl);
reset(f1);
Len := FileSize(f1);
SetLength(Arr, Len);
while not eof(f1) do
  begin
    BlockRead(f1, buf, 1);
    buf := Ord(Chr(255-buf));
    arr[i] := buf;
    inc(i);
  end;
closefile(f1);