Пример. Описание типа

Type
 Adres = Record
 Gorod : String [20];
 Ul : String [20];
 Dom : Integer;
 Kv : Integer
End;


Пример. Определение массива переменных типа"Запись"

Запись может иметь следующую структуру:

ФИО, номер зачетки, оценки по 5 предметам.

Type
 Stud = Record
 Fam : String[15];
 Im : String[10]
 Ot : String[15];
 Numz : LongInt;
 O : Array[1..5] Of Integer
E nd;

Сведения о 25 студентах можно поместить в массив:

Var
 Grup : Array[1..25] Of Stud;
 RabAnk : Stud; {Рабочая переменная}


Пример. Работа с конкретными полями записи

RabAnk.NumZ := 2100756; {Поле номера зачетки в переменной RabAnk}
RabAnk.Fam := ’Иванов’; {Поле фамилии в переменной RabAnk}

Для массивов записей:

Grup[1].Fam := ’Абрамова’; {Фамилия первого студента в группе}
Writeln(Grup[i].Numz); {Номер зачетки i–го студента в группе}
Write(Grup[10].O[1]); {оценка по первому предм.10-го студента}

Пример. Использование оператора with

For i:=1 to n Do
 With Vedom[i] do
   Begin
     Write(’Фамилия: ’);
     ReadLn(Fam);
     Write(’Имя: ’);
     ReadLn(Im);
     Write(’Отчество: ’);
     ReadLn(Ot);
     Write(’Номер зачетки: ’);
     ReadLn(Numz);
     WriteLn(’Вводите оценки по одной’);
     For j := 1 to m do
       Begin
        WriteLn(’Введите ’,j,’ –ю оценку’);
        ReadLn(Otm[j]);
       End;
 End; { With }