Алгоритмические языки и программирование. Игошина Л.В. - 55 стр.

           Begin
          For j:=1 to 3 do
          Sum:=Sum+Ball[j];
           . . .
           End;

     Рассмотрим пример использования записи внутри другой записи.
     Пусть имеется структура:
      № п/п Ф.И.О.       Дата рождения        Пол     Национальность

      Причем поле дата рождения состоит из полей: число, месяц, год. Тогда
описание в программе будет иметь вид:
      Type
        Date=Record
            Days:1..31;
            Month:1..12;
            Year:1900..2000;
              End;
      Tzap=Record
            Nom:word;
            FIO:string[40];
            Birthday:Date;
            Pol:(Man,Woman);
            Nac:string[20];
            End;
      Var Zap:Tzap;
      Для того чтобы обратиться к элементам записи дата рождения,
необходимо записать:
      D:=Zap. Birthday.Days;
      M:= Zap. Birthday.Month;
      G:= Zap. Birthday.Year;
или с использованием оператора присоединения
      With Zap. Birthday do
      Begin
      D:=Days; M:=month; G:=Year;
      End;

      Типизированные константы - записи имеют вид:
      Имя константы : Тип = (Список значений полей записи);
      Список значений полей записи - это список из последовательностей
вида: Имя поля: Константа;
      Например:
      1) Type