Изменение порядка байт в файле

[kitty19]

Прошу прощения за беспокойство, но!
Есть задание: "Написать программу, изменяющую порядок байтов в файле на противоположный (первый байт становится последним и наоборот)". Язык программирования любой (но признаюсь честно сама я более менее разбираюсь лишь в Pascal'е - Delphi). В мою голову ни одного более менее сносного варианта решения не пришло...
Если у кого то есть идеи, буду очень благодарна!

[Пепел Феникса]

через TFileStream читаем в массив байт, и потом пишем по байту начиная с конца массива

[russian-stalker]

procedure TForm1.Button1Click(Sender: TObject);
var
f:tfilestream;
a:array of byte;
i:integer;
begin
f:=tfilestream.Create('c:\my.file',fmOpenReadWrite);
setlength(a,f.size-1);
for i:=0 to f.Size do
f.Read(a[i],1);
f.Size:=0;
for i:=length(a) downto 0 do
f.Write(a[i],1);
setlength(a,0);
f.Free;
end;

[kitty19]

спасибои еще вопрос(сразу прошу прощения если он глупый)
Если таким образом изменять текст формата txt, или pas, то просто изменяется порядок букв на противоположный. А вот если открывать картинки к примеру, то исходный файл в символьном виде(открытый блокнотом), и полученный файл таким принципом не связаны(порядок символов не изменен на противоположный, а просто совсем другой набор символов).
Это ошибка или так и должно быть?

[Пепел Феникса]

f.size-1

минус один не надо тут.
длинна массива равна размеру файла.

вроде нормально помоему.

[FaTaL]

Так и должно быть.

[kitty19]

А почему так должно быть?

[russian-stalker]

Допустим в файле 6 байт, а массив начинается с нуля. То есть [0..5]

[kitty19]

я имела ввиду почему при изменении порядка байт в картинке к примеру при открытии через блокнот символы получаются совсем разные а не в обратном порядке?

[russian-stalker]

Вас не поймешь, вы просили менять порядок БАЙТ, а не СИМВОЛОВ. Это разные вещи.