type Matrix is array ( Integer range <>, Integer range <>) of Boolean;
    type NamesArray is array ( Integer range <> ) of String(1..10);
    type Airlines( Size: Positive ) is record
        Names: NamesArray( 1..Size );
        Flights: Matrix( 1..Size, 1..Size );
    end record;

    procedure AssignName( P: out Airlines; Index: in Positive; Name: in String ) is
    begin
        for I in 1..10 loop
            P.Names(1)(I) := ' ';
        end loop;
    end;