With StudentGroup [i] do

Begin

Write (‘Введіть прізвище ’, i:3, ‘ студента:’);

Read (FIO);

Write (‘Введіть номер його заліковки:’);

Read (Numb);

Write (‘Введіть його оцінку:’);

Read (Mark);

end;

Використання вкладених записів

Будь-яке поле запису може мати також складну структуру, тобто бути також записом. Наприклад, розглянемо структуру даних, в якій повинно зберігатися прізвище людини та її адреса (місто, вулиця, № будинк, № квартири). У табличній формі ці дані будуть виглядати так:

Прізвище	Адреса
Місто	Вулиця	№ будинку	Квартира

Відповідно поля будуть мати такі типи:

Прізвище	Адреса
Місто	Вулиця	№ будинку	Квартира
string[20]	string [12]	string[20]	byte	word

Поле “Адреса” складається з 4 частин і є також записом. Мовою Паскаль тип для запису такої структури описується так:

Type

ManType = record

FIO : string[20];

Address :record

Misto : string [12];

Vul : string[20];

Bud : byte;

Kv : word;

end;

end;

Для адреси також можна записати окремий тип, тоді загальний опис запису зміниться так:

Type

AddressType = record

Misto : string [12];

Vul : string[20];

Bud : byte;

Kv : word;

end;

ManType = record

FIO : string[20];

Address: AddressType;

end;

Опишемо змінну цього типу:

Var

Man: ManType;

Для доступу до полів поля адреси необхідно використовувати подвійну операцію розкриття запису:

Man. Adress. Misto:= ‘Київ’;

Man. Adress. Vul:= ‘Хрещатик’;

Man. Adress. Bud:= 1;

Man. Adress. Kv:= 26;

Якщо до оператора приєднання занести повторювану частину, о отримаємо: