Задача на запись(Record)

[Impario]

Здравствуйте Уважаемые программисты и доброго вам время суток. Пожалуйста немогли бы вы объяснить или помочь с задачей. Обьясните пожалуйста мне как делать задачи с оператором Record. Или составить задачу с этим оператором.
Условие:
Организация занимающаяся ремонтом мониторов. Нужно составить с помощью оператора Record задачу с 4 функциями любыми относящимися к ремонту мониторов. Можно без таблицы так как таблица занимает много времени. Программа должна содержать в себе ну например 4 вопроса: модель, диагональ, и т.д. Помогите если можете. Мне очень это нужно. Заранее Спасибо.

[Sazary]

Создание записи:

type Zap = record
a : integer;
b : integer;
c : real;
end;

var Primer : Zap;

Использование:

readln(Primer.a);
tmp := Primer.c;

[alex_fcsm]

Например создадим такой тип.
name - марка монитора
diag - диагональ
srok - длительность выполнения заказа
price - стоимость работ

type
  Tzac=record
    name:string[20];
    diag,srok:byte;
    price:real;
  end;


var x:Tzac;

Обращение к полю

x.name:='LG ';
x.diag:=17;
x.srok:=4;
x.price:=1000;

например