Manejo de tipos

[Sinaloense]

Tendrías que declarar el archivo de acuerdo al tipo:

Código Delphi [-]
type
  TQ32Reg1 = packed Record
    CodReg     : string[2];
    CodOper   : string[2];
    Filler1       : string[2];
    Info         : string[6];
end;

type
  TQ32Reg2 = packed Record
    CodReg     : string[2];
    CodOper   : string[2];
    CodPais    : string[2];
    Info2        : string[6];
end;

var
   Archivo1:File of TQ32Reg1;
   Archivo2:File of TQ32Reg2;
   Estructura1:TQ32Reg1;
   Estructura2:TQ32Reg2;

begin
    Assign(Archivo1,'algunaarchivo1');
    Assign(Archivo2,'algunaarchivo2');
    Reset(Archivo1);
    Reset(Archivo2);
    Read(Archivo1,Estructura1);
    Read(Archivo2,Estructura2);

    // Despues manipulas la Estructura a tu gusto    
    //y
    //Para escribir

    Write(Archivo1,Estructura1);  
    Write(Archivo2,Estructura2);
    
    CloseFile(Archivo1); 
    CloseFile(Archivo2); 
end;