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

begin
       { Открытие файла данных для чтения }
       assign (f,'zapkn.txt'); reset(f);
       for j:=1 to m do chtenie(zapkn[j]);
       writeln('Данные считаны. '); writeln;
       write('Введите сегодняшнюю дату: день – ' );
       readln (segodnya.day );
       write('             месяц – ');
       readln (segodnya.mon );
       write('          год – ' );
       readln (segodnya.year);
       writeln;
       nashli:=false;
       { Поиск данных в массиве записей }
       for j:=1 to m do
           with zapkn[j].drog do
       if (segodnya.day=day) and (segodnya.mon=mon) then begin
           if not(nashli) then writeln(pusto,'Именинники на сегодня:');
           vivod(zapkn[j]);
           nashli:=true
       end;
       writeln('=================================================);
       if not(nashli) then writeln('Сегодня именинников нет.')
{ Конец программы }
end.


                  5.7. Контрольные вопросы и варианты индивидуальных заданий
Ответьте на следующие вопросы.
1. Могут ли поля записи быть одного типа? разных типов?
2. Существенен ли порядок описания полей записи?
3. Могут ли быть одинаковыми имена полей разных записей?
4. Могут ли имена полей записи совпадать с именами переменных?
5. Может ли оператор присоединения работать сразу с несколькими различными запи-
   сями?
6. Можно ли комбинированный тип использовать для преобразования типов?
7. Может ли запись содержать две вариантные части? одну? ни одной?
8. Может ли запись состоять только из вариантной части?
В соответствии с номером варианта выполните одно из следующих индивидуальных
заданий.