Pascal/Turbo Pascal - Duda sobre extraer textos de un archivo binario.

{Mira esto sino manda el archivo de texto}

 program leertexto;

  uses

    crt;

  const

     texto : array[1..4] of string = (

     '[NULL] [NULL] [NULL] [NULL]Ah, looks like you re awake.[NULL] [NULL] [NULL] [NULL]',

     '[NULL] mi mundo [NULL] [NULL]es, asi like you re awake.[NULL] [NULL] [NULL] [NULL]',

     'I no lo [NULL] [NULL] [NULL]cambio, looks like you re awake.[NULL] [NULL] [NULL] [NULL]',

     '[NULL] [NULL] por no  [NULL]tener, otro like you re awake.[NULL] [NULL] [NULL] [NULL]');

    archi = 'mitexto.txt';

  var

    f : text;

    dato : string;

    letra : char;

    i : integer;

  procedure guardadatos;

  begin

    assign(f,archi);

    rewrite(f);

    dato := copy(texto[1],1,length(texto[1]));

    writeln(f,dato);

    close(f);

    append(f);

    for i := 2 to 4 do

    begin

      dato := copy(texto[i],1,length(texto[i]));

      writeln(f,dato);

    end;

    close(f);

  end;

  procedure cargatexto;

  begin

     assign(f,archi);

  {$I-} reset(f); {$I+}

     if ioresult <> 0 then

     begin

       writeln('  Error De Archivo O No Existe Pulse Una Tecla');

       readkey;

     end

 else

    begin

       while not eof(f) do

       begin

          readln(f,dato);

          for i := 1 to length(dato) do

          if dato[i] = '[' then

          delete(dato,i,6);

          write(dato);

          writeln;

       end;

         close(f);

         readkey;

    end;

  end;

  begin

      guardadatos;

      clrscr;

      cargatexto;

  end.