SCAR Code:
program New;
function ReArray(Arr: array of Integer; StartingIndex: Integer): array of Integer;
var
i: Integer;
begin
SetLength(Result, Length(Arr));
for i := StartingIndex to High(Arr) do
Result[i-StartingIndex] := Arr[i];
for i := 0 to StartingIndex-1 do
Result[High(Arr)-StartIngIndex+i+1] := Arr[i]
end;
var
Arr, Arr2: array of Integer;
i: Integer;
begin
Arr := [4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 20];
Arr2 := ReArray(Arr, 5);
for i := 0 to Length(Arr2)-1 do
Writeln(IntToStr(Arr2[i]));
end.