[Страдалецъ]

Примерно о таком:

Код:

Type
  TDiscipline = record
   Name: String;
   Point: Integer;
  end;

  TTestBook = record
    FIO: String[50];
    Discipline: Array[1..7] of TDiscipline;
  end;

Var
  A: Array[1..2] of TTestBook;
begin
 with A[1]
 do begin
    FIO := 'Иванов Иван Иванович';
    Discipline[1].Name := 'Информатика';
    Discipline[1].Point := 2;
    Discipline[2].Name := 'Физика';
    Discipline[2].Point := 4;
    end;
 with A[2]
 do begin
    A[2].FIO := 'Петров Петр Петрович';
    A[2].Discipline[1].Name := 'Информатика';
    A[2].Discipline[1].Point := 5;
    end;
end.