Массивы, записи и множества

// Определите реальную гарантию в StaticArrayBounds.
program StaticArrayBounds;
{$APPTYPE CONSOLE}
type
  TWeek = array[1..7] of Integer;
var
  Values: TWeek;
  I, Total: Integer;
begin
  Total := 0;
  for I := Low(Values) to High(Values) do
  begin
    Values[I] := I * 2;
    Inc(Total, Values[I]);
  end;
  Writeln(Total);
end.

// Отделите правило языка от удачного запуска SetDemo.
program SetDemo;
{$APPTYPE CONSOLE}
type
  TDay = (Mon, Tue, Wed, Thu, Fri, Sat, Sun);
  TDays = set of TDay;
var
  Weekend: TDays;
begin
  Weekend := [Sat, Sun];
  Include(Weekend, Fri);
  Writeln(Ord(Fri in Weekend), ' ', Ord(Mon in Weekend));
end.

// Проследите фактическое поведение RecordCopy.
program RecordCopy;
{$APPTYPE CONSOLE}
type
  TUser = record
    Name: string;
    Scores: array of Integer;
  end;
var
  A, B: TUser;
begin
  A.Name := 'Ada';
  A.Scores := [1, 2];
  B := A;
  B.Name := 'Grace';
  B.Scores[0] := 9;
  Writeln(A.Name, ' ', A.Scores[0]);
end.

// Отделите правило языка от удачного запуска DynamicAlias.
program DynamicAlias;
{$APPTYPE CONSOLE}
type
  TIntArray = array of Integer;
var
  A, B: TIntArray;
begin
  A := [10, 20, 30];
  B := A;
  B[1] := 99;
  SetLength(B, 2);
  Writeln(A[1], ' ', Length(A), ' ', Length(B));
end.