Record in Pascal

// Record (запись)
program example_record;

{Раздел подключения библиотек}
uses crt;

// Тип для ОДНОГО человека
type TPerson = record
   Full_name : String; // ФИО
   age : Byte;         // возраст
   gender : char;      // "м", "ж" - пол
   height : Byte;      // рост
   weight : real;      // вес
end;

// Тип для нескольких человек (массив людей)
type TPersons = array[0..9] of TPerson;


//Процедура заполнения людей
procedure fillPersons(var persons: TPersons; N : integer);
var i : integer;
begin
    for i := 0 to N - 1 do begin
        writeln('Ввод данных для ',i,'-го человека:');
        write(' ФИО: '); readln( persons[i].Full_name );
        write(' возраст: '); readln( persons[i].age );
        write(' пол: '); readln( persons[i].gender );
        write(' рост: '); readln( persons[i].height );
        write(' вес: '); readln( persons[i].weight );
        writeln;
    end;
end;

//Процедура вывода на экран
procedure printPersons( persons: TPersons; N : integer);
var i : integer;
begin
    for i := 0 to N - 1 do begin
        writeln('Вывод данных для ',i,'-го человека:');
        write(' ФИО: ', persons[i].Full_name);
        write(' возраст: ', persons[i].age);
        write(' пол: ', persons[i].gender);
        write(' рост: ', persons[i].height );
        write(' вес: ', persons[i].weight);
        writeln;
    end;
end;