Расположить элементы вектора в обратном порядке.Дополнительный массив не использовать.(Напишите пожалуйста код и блок-схему к задаче)

1. Современный вариант// PascalABC.NET 3.1, сборка 1213 от 04.04.2016begin  var a:=ArrRandom(ReadInteger('n='),10,99); a.Println;  a:=a.Reverse.ToArray; a.Printlnend.Тестовое решение:n= 1533 91 99 60 56 92 99 23 33 25 62 27 42 27 1111 27 42 27 62 25 33 23 99 92 56 60 99 91 332. Школьный вариант// PascalABC.NET 3.1, сборка 1213 от 04.04.2016const  n=15;var  a:array[1..n] of integer;  i,t:integer;begin  Randomize;  for i:=1 to n do begin    a[i]:=Random(90)+10;    Write(a[i],' ')    end;  Writeln;  for i:=1 to n div 2 do begin    t:=a[i]; a[i]:=a[n-i+1]; a[n-i+1]:=t    end;  for i:=1 to n do Write(a[i],' ')end.