Вариант 1. Объявление записи в разделе переменных: Запись: record Поле1:Тип1; Поле2: Тип2;

ПолеJ: TиnJ; end;

Вариант 2. Сначала объявляется тип-запись, затем — переменная-запись:

type

ТипЗапись = record Поле1: Тип1; Поле 2:Тип2;

ПолеК: ТипК; end;

var

За пись: ТипЗапись;