Процедуры, функции и параметры

// Проследите фактическое поведение ValueParameter.
program ValueParameter;
{$APPTYPE CONSOLE}
type
  TIntArray = array of Integer;
procedure Change(A: TIntArray);
begin
  A[0] := 99;
  SetLength(A, 1);
end;
var
  Data: TIntArray;
begin
  Data := [1, 2, 3];
  Change(Data);
  Writeln(Data[0], ' ', Length(Data));
end.

// Разберите, почему объявления OverloadByModifier конфликтуют.
program OverloadByModifier;
{$APPTYPE CONSOLE}
procedure Save(Value: Integer); overload;
begin
end;
procedure Save(var Value: Integer); overload;
begin
end;
begin
end.

// Проследите фактическое поведение FunctionResult.
program FunctionResult;
{$APPTYPE CONSOLE}
function Classify(N: Integer): string;
begin
  if N < 0 then
    Result := 'negative'
  else if N = 0 then
    Result := 'zero'
  else
    Result := 'positive';
end;
begin
  Writeln(Classify(0));
end.

// Определите реальную гарантию в VarOutDemo.
program VarOutDemo;
{$APPTYPE CONSOLE}
procedure Parse(const S: string; var Attempts: Integer; out Value: Integer);
begin
  Inc(Attempts);
  Value := Length(S);
end;
var
  N, Tries: Integer;
begin
  N := 777;
  Tries := 0;
  Parse('abc', Tries, N);
  Writeln(Tries, ' ', N);
end.