Поменять местами 1-й положительный элемент с последним положительным элементом, 2-й – с предпоследним и т.д

const
  nmax = 100;
 
var
  a: array [1..nmax] of real;
  n, imx, k: integer;
  p, s, x, max: real;
 
begin
  randomize;
  repeat
    write('Размер массива от 2 до n',  ' n=');
    readln(n);
  until n in [2..nmax];
  writeln('Исходный   массив');
  imx := 1;
  p := 1;
  k := 0;
  for var i := 1 to n do
  begin
    a[i] := -5 + 10 * random;
    write(a[i]:5:1);
    if a[i] < 0 then
    begin
      p := p * a[i];
      k := 1;
    end;
    if a[i] > a[imx] then imx := i;
  end;
  writeln;
  if k = 0 then p := 0;
  writeln('Произведение отрицательных=', p:0:2);
  writeln('Индекс максимального=', imx);
  s := 0;
  if imx > 1 then
    for var i := 1 to imx - 1 do
      if a[i] > 0 then s := s + a[i];
  writeln('Сумма положительных до максимального=', s:0:2);
  
  for var i := 1 to n div 2 do
  begin
    x := a[i];
    a[i] := a[n - i + 1];
    a[n - i + 1] := x;
  end;
  writeln('Преобразованный массив');
  for var i := 1 to n do
    write(a[i]:5:1);
end.

const
  nmax = 100;
  
begin
  var n := ReadInteger($'Размер массива от 2 до {nmax}: n =');
  var a:array [1..nmax] of Integer;
  for var i := 1 to n do a[i] := Random(-5,5);
  '       Исходный массив:'.Print; for var i := 1 to n do a[i].Print; PrintLn;
  var(L,R) := (1,n);
  repeat
    while (L<n) and Not(a[L]<0) do L+=1; // левый указатель двигаем вправо до отрицательного
    while (R>1) and Not(a[R]<0) do R-=1; // правый указатель двигаем влево до отрицательного
    if L < R then
      begin
        Swap(a[L],a[R]); // обмен
        L+=1; R-=1; // сдвинуть указатели
      end;
  until L >= R; // левый указатель дошел или перешел правый
  'Преобразованный массив:'.Print; for var i := 1 to n do a[i].Print; PrintLn;
end.

const nmax = 100;
var a:array[0..nmax+1] of integer;
    n,x:integer;
begin
write('Размер массива от 2 до n',' n=');
readln(n);
writeln('Исходный   массив');
for var i:=1 to n do
 begin
  a[i]:=random(-50, 50);
  write(a[i]:4);
 end;
writeln;
var i:=1;
var j:=n;
repeat
while a[i]<=0 do inc(i);
while a[j]<=0 do dec(j);
x:=a[i];
a[i]:=a[j];
a[j]:=x;
inc(i);
dec(j);
until j<=i; 
writeln('Преобразованный массив');
for var k:=1 to n do
write(a[k]:4);
end.