Написать программу на паскале абс тема "перестановка элементов в одномерном массиве. " дан массив размера n. переставить в обратном порядке элементы массива, расположенные между его третьим и седьмым элементами, включая эти элементы.

//PascalABC.NET 3.1 сборка 1200
const
  n = 10;

begin
  var a := ArrRandom(n, -50, 50);
  a.Println();
 
  for var i := 0 to (7 - 3) div 2 do
  begin
    var t := a[3 + i];
    a[3 + i] := a[7 - i];
    a[7 - i] := t;
  end;
  a.Println();
end.