Для доступа к полям записи целесообразнее использовать оператор WITH <переменнаая> DO <оператор>, вместо "." что уменьшает объем загрузочного модуля и увеличивает быстродействие.
Например,
type
Bi=record
day,month:byte;
year :word
end;
var
a,b:Bi
......
with c.bd do month:=9;
вместо c.bd.month:=9;
Type
Birthday = record
Day, month: byte;
Year: word;
End;
var a: birthday;
if (a.day=16) and with a do
(a.month=6) and if (day=16) and
(a.year=1979) then (month=6) and
write('Hi!'); (year=1979) then
write('Hi!');
