प्रोग्राम की सुविधाएँ · Delphi ऐरे की स्वतंत्र प्रतियाँ

function ChangedCopy(const Values: TArray<Integer>;
  Next: Integer): TArray<Integer>;
begin
  Result := System.Copy(Values, 0, Length(Values));
  if Length(Result) > 0 then
    Result[0] := Next;
end;