Массив как типизированая констана в записе. (Pascal/Delphi)

[Wild_klas]

Заданные поля записи, определить их типы данных, написать программу для ввода произвольного количества
записей через массив, инициализировать как типизированную константу. Вывести записи согласно указанному
критерию на экран в форме, удобной для просмотра.
Сооружение: название, назначение, площадь, которая отводится под нее (м2). Критерий: сооружения, которые занимают площадь <0,1 га.}
Подскажите мне пожалуйста, как здесь сделать типизированную константу?? Тип я определил, как быть дальше?

Type
       Building = Record
       Name:String[20];
       Appointment:String[20];
       Square:integer;
     End;

[Mad_Cat]

как здесь сделать типизированную константу

Town:array[1..2] of  Building =((Name:'House';Appointment:'Home';Square:120),(Name:'Plant';Appointment:'Factory';Square:1000))

[Wild_klas]

Спасибо, Mad_Cat.