[ecfisa]

Hola heruer, bienvenido a Club Delphi

Como a todos los que se inician te invitamos a leer nuestra Guía de estilo.

Código Delphi [-]
...
type
  TMateria = record
    Inx   : Word;
    Nombre: string;
  end;

  TProfesor = record
    Inx   : Word;
    Nombre: string;
  end;

  TFotocopia = record
    Mes     : Byte;
    Vendidas: Integer;
    MateInx : Word;
    ProfInx : Word;
  end;

  VMaterias   = array[1..MAX_MATERIAS] of TMateria;
  VProfesores = array[1..MAX_PROFESORES] of TProfesor;
  VFotocopias = array[1..MAX_FOTOCOPIAS] of TFotocopia;

Donde MateInx almacena el índice del arreglo de materias y ProfInx almacena el índice del arreglo de profesores.

Pero, como Free Pascal soporta el uso de arreglos dinámicos, sería mejor hacer:

Código Delphi [-]
...
  VMaterias   = array of TMateria;
  VProfesores = array of TProfesor;
  VFotocopias = array of TFotocopia;

Saludos