Работа с составными типами данных в системе Turbo Pascal. Батхин А.Б - 19 стр.

   with p,d do begin
      f1:= 'Иннокентьева';
      f2:= 'Инна';
      f3:= 'Ивановна'; pol:=jensk;
      sempol:=razveden;
      ndet1:=1
      day:=1;month:=4;year:=1988
   end;
Замечание: в операторе with r do S выражение r не должно содержать переменных, из-
меняемых в операторе S. Например, оператор
                                               with S[j] do j:=j+1
недопустим.
Оператор вида
                                                with r1,...,rn do S
эквивалентен оператору
                                        with r1 do with r2 ... with rn do S
(см.пример).


                                          5.6. Пример программы
   В качестве примера рассмотрим программу, которая обрабатывает массив записей,
каждая из которых содержит сведения о человеке, необходимые для связи с ним по
почте или телефону. Запись имеет вид
Фамилия И.О.
Почтовый адрес                 Индекс
                             Населенный пункт, улица, номер дома и квартиры
Телефон домашний
Телефон рабочий
Дата рождения                  день
                               месяц
                               год
___________________________________________________________________________
program adres;
{ Программа ввода записной книжки из файла и поиска именинников }
{ на сегодняшний день. Имя файла исходных данных : 'ZAPKN.txt'. }
   const m=13;
          pusto=' ';
   type mesto = record
                          index:real;
                          kuda :string[40];
                   end;