Запись - описание комбинированного типа, состоящее из нескольких полей, каждое из которых имеет свой тип. TYPE

(на год старше)
Для доступа к полям записи используется оператор присоединения:
WITH <переменнаяТипа"запись"> DO <оператор>;
c выполнять
Например:
WITH a DO begin
name:='MARINA';
god:=1990;
den:=23;
mes:=3
end;

оператор(ы) присоединения.
Пример: определим сложную запись (вложенные записи)
TYPE
STUDENT=RECORD
name:string;
DENROGD: RECORD
den,mes:byte;
god:word
end;
end;
VAR s: STUDENT;
begin
s.name:=‘LIZA’;
s.DENROGD.god:=1991;
Или WITH s DO name:=‘LIZA’;
WITH s DO with DENROGD DO god:=1991;
Или WITH s.DENROGD DO god:=1991;
DENROGD является вложенной записью для записи STUDENT

student=record
name:string[15];
denRogd: RECORD
den, mes:byte;
god:word
end;
end;
var
Z: ARRAY [1..20] OF student;
i, n: byte;
BEGIN
CLRSCR;
writeln('ВВЕДИТЕ КОЛИЧЕСТВО СТУДЕНТОВ');
READln(n); {ввод данных}
FOR i:=1 TO n DO WITH z[i] DO NAME:=‘ ';

день рождения');
readLN(z[i].denRogd.den);
WRITELN('ВВЕДИТЕ месяц рождения');
readLN(z[i].denRogd.mes);
WRITELN('ВВЕДИТЕ год рождения');
readLN(z[i].denRogd.god);
end;
writeln('СПИСОК ');

for i:=1 to n do
if z[i].denRogd.god=1992 then
begin
writeLn('ИМЯ ',i, 'СТУДЕНТА');
WRITELN(z[i].name);
WRITE(' день рождения ');
writeln(z[i].denRogd.den);
WRITE(' месяц рождения ');
writeln(z[i].denRogd.mes);
WRITE(' год рождения ');
writeln(z[i].denRogd.god);
WRITELN;
end;

поля1;
<поле2>:тип поля2;
CASE <переменная-переключатель> OF
<константа выбора1>: (<поле c11>:<тип поля с11>;
<поле с12>:<тип поля с12>;...);
<константа выбора2>: (<поле с21>:<тип поля с21>;
<поле с22>:<тип поля с22>;...);
. . .
<константа выбораk>: (<поле сk1>:<тип поля ck1>;
<поле cr2>:<тип поля ck2>;...)
END;
Тип полей с11, с12 - компоненты варианта.
<константа>: ( )

номер комнаты (если живет в общежитии) или почтовый индекс и адрес (если нет).
TYPE MESTO=(ob,dom);
STUDENT=RECORD
name:=string;
DENROGD: RECORD data:read;
god:word
END;
CASE N OF dom: (indeks:word;adres:string);
ob: (komn:word);
END;
Var z: student;
Переменную-переключатель называют также тагом (тэг, тег) - ярлыком, признаком, дискриминантом.
Пример: Cоздать запись - данные об одном из студентов - Петрове, родившемся 15.03.90, адрес; Маркса 6-2.

begin
God:=1980; {z.denRog.god:=1990}
data:=15.03; {z.denRog.data:=15.03}
If N=OB then read(komn); {z.komn:= }
else begin
indeks:=24;
ADRES:=‘Marksa 6-2’;
End;
…
With z do write(‘i’, name); {печать из z.name}
With z.denRogd do write(‘ ’, god, ‘.’, date:5:2); {1990.15.03}
If N=OB then With z do write (‘комната’, komn);
еlse With z do write(‘индекс’ , indeks, ‘адрес’, adress);
End.

он из Омска - ничего, если из другого города - название. .

TYPE GOR=(OBL, NO);
STUDENT=RECORD
name:=string;
DENROGD: RECORD
… … …
Case N: Mesto OF DOM: (indeks: Byte, Adres:string);
OB: (Komn:word; Case YN: Gor OF {адрес:string}
OBL: ();
NO: (Gorod:string);
End;
Var st: array [1..20] of student;

комнаты, если живет в общежитии, индекса и адреса, если в Омске, а так же вывода сведений о студенте по его ИМЕНИ}

Program zap2case;
USES CRT; {подключение модуля СRT}
type {определение нового типа}
MESTO=(ob,dom);
student=record {запись}
name:string[15];
denRogd: RECORD {вложенная запись}
data:real;
god:word
end;
CASE N:mesto of
dom: (index:word; adres:string) ; ob: (komn:word)
end;

var Zz: ARRAY [1..20] OF student;
s:string; {g:word;}
i,m,j: byte;
BEGIN
CLRSCR;
writeln(‘введите количество студентов');
READln(m);
for i:=1 to m do with zz[i] do
begin
writeLN(‘введите имя ',i,’студента);
readln(name);
with denrogd do
begin
WRITELN(‘введите день и месяц рождения');
readLN(data);