Pascal/Turbo Pascal - Estructura de Seccion Case Dentro de Type

tengo esta estructura predefinida:

Const
NPVP = 3;
NCOS = 3;
KC = 15; { Producto }
KN = 40;
KM = 10; { Multiple }
KR = 15;
NMes = 13;
EstI = 12;
MaxF = 40; { Maximo de campos }
Type
RegCampos = Record
Name: String[15];
TipoF: Char;
Len,
Max,
Dec,
Need,
MaskI: Byte;
InitB: Word;
Activo,
InfoOn: Boolean;
Nivel: Byte;
Dummy: Array[1..2] Of Byte;
End;

RegArchivo = Array[1..MaxF] Of RegCampos;
RegConfArchivo = Record
SizeRec,
NroField: Word;
MaxTl: Byte;
Field: RegArchivo;
End;
Real48 = Real;
SmallInt = Integer;
ArrayPrecio = Array[1..NPVP] Of Real48;
ArrayCosto = Array[1..NCOS] Of Real48;
{*-----------------------------------------------------------------*}
RegSplProducto = Record
***Case Byte Of
***0: ( Conf: RegConfArchivo);
***1: ( Codigo: String[KC];
Departa: String[KM];
Descripcion: Array[1..3] Of String[KN];
Refere: String[KR];
Marca: String[20];
Unidad: String[3];
TipoP: Char;
UsoI,
Serial,
ComiDept,
Compuesto: Boolean;
IVAP: Real48;
DiasE: SmallInt;
Exento: Boolean;
NeedBalanza: Boolean;
UsaEmp: Boolean;
EsPorcent: Boolean;
ImpuestoI,
CantPedida,
CantCompro: Real48;
CostoPrd: ArrayCosto;
PVP: ArrayPrecio;
FechaUC,
FechaUV: String[8];
ExistMi,
ExistMa,
Existencia: Real48;
Estadistics: Array[1..NMes,1..EstI] Of Real48;
Empaque,
ExUnidades,
CostoUnidad,
PrecioUnidad: Real48;
OUnidad: String[3];
FlagContab: Boolean;
CtasContab: Array[1..6] Of String[25];
TieneOferta,
TieneTalla,
TieneColor,
TieneLote: Boolean;
Dummy2: Array[1..72] Of Byte;
);
End;

RegProducto = Record
Status: LongInt;
Special: RegSplProducto;
DataArea: Array[1..1] Of Byte;
End;

alguien podria decirme como manejar esa estructura maracada como(***) dentro de un fichero ya que dentro de la definicion existe un case y la verda q cuando intento leer el archivo me da error lo sabria agradecer a quien me pueda ayudar...
msn: [email protected]

Lo que has marcado con (***) es un registro variante (perfectamente válido).

lo que he marcado con (***0 es para denotar la estructura q alguien me ayude a como manejar ese tipo de estructura...

Ya lo sé. Lo de registro variante lo puedes encontrar en cualquier manual de Pascal.

he buscado en todos lados y nada...

aja y como lo manejo tu sabes podrias ayudarme...

yo estudio sistemas y estoy viendo array en pascal y la verdad que no se de qeu trata el array no se como funciona crees que me puedes ayudar?

Tengo como dos meses buscando y nada, ni el libros ni en la web. Espero me puedan dar algo de luz.

Si yo tengo:

PROGRAM NUMEROS;
USES CRT;
VAR OPCION : INTEGER;

BEGIN
CLRSCR;
WRITE('INGRESA UN NUMERO ENTRE 1 Y 9 ');
READLN(OPCION);
CASE OPCION OF
1 : WRITELN('UNO');
2 : WRITELN('DOS');
3 : WRITELN('TRES');
4 : WRITELN('CUATRO');
5 : WRITELN('CINCO');
6 :WRITELN('SEIS');
7 : WRITELN ('SIETE');
8 : WRITELN('OCHO');
9 : WRITELN('NUEVE');
ELSE WRITELN('EL NUMERO NO ES ENTRE 1 Y 9');
END; {DEL CASE}
READKEY;
END.

Como se usa en vez de una variable "OPCION" un byte
Ejemplo:

Case byte of
0: "xxx"
1: "yyy"

Como yo instruyo que seleciones el 0 o seleciones el 1
?????
Gracias