تعریف ثابتی از نوع آرایه ای از رکورد

[BORHAN TEC]

با عرض سلام
دوستی از من پرسیده بود که چگونه می توان ثابتی از نوع آرایه ای از رکورد تعریف کرد؟ :گیج:
به عنوان جواب تکه کدی را آماده کرده ام که با بررسی آن روش انجام کار را متوجه خواهید شد. :چشمک:
program Project4;

{$APPTYPE CONSOLE}
{$R *.res}

uses
System.SysUtils;

type
TPerson = record
Name: string;
Family: string;
Age: Byte
end;

const
Persons: array [1 .. 2] of TPerson =
(
(
name: 'Iman';
Family: 'Imani';
Age: 21
)
,
(
name: 'Nima';
Family: 'Alikhani';
Age: 21
)
);

var
Person: TPerson;

begin

for Person in Persons do
begin
Writeln(Person.Name, ' ', Person.Family, ' ', Person.Age);
end;

Readln;
end.
موفق باشید...