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

Ну примерно так:

Код:

Const
 ZipToV: Array[0..15] of Byte = (5,4,7,6,1,0,3,2,$D,$C,$F,$E,9,8,$B,$A);
Var
 V,Zip: File of byte;
 B: Byte;
begin
 AssignFile(Zip, 'Input.zip');
 Reset(Zip);
 AssignFile(V, 'Output.v');
 Rewrite(V);
 while not Eof(Zip)
 do begin
     Read(Zip, B);
     Write(V, ZipToV[b]);
     end;
 CloseFile(V);
 CloseFile(Zip);
end.