Binario a Texto

[gusspagano]

Hola a todos, tengo un problema y les agradecería mucho su ayuda.

tengo un archivo binario, el cual quiero convertir a texto he usado la función blockread y luego intento escribir lo que leyó la función en un txt, algo asi:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  arc:file;
  b:word;
  i:integer;
  arr:textfile;
begin
  assignfile(arc,'I:\Radar raw data\20080101 a 20080219\RAW_NA_000_236_20080101001008');
  reset(arc,2);
  assignfile(arr,'D:\Users\Alvao\Desktop\culos.txt');
  ReWrite(arr);
  while not eof (arc) do
  begin
    blockread(arc,b,1);
    Write(arr,inttostr(b));
  end;
end;

Lo único que veo en el archivo que creo son puros números.

Se supone que el binario es de texto, me explico, es texto que pusieron en un archivo binario por que un txt estaría muy pesado, entonces yo necesito abrir el binario convertirlo a texto, leer una parte de él guardarlo en otro txt.

ya tengo rato con esto no nomas no puedo,

gracias por su ayuda.