1. в одномерном массиве произвольных чисел а(10) положительные элементы уменьшить в двое, а отрицательные элементы заменить на значения их индексов

Const
  n = 10;

var
  a: array[1..n] of integer;
  i: integer;

begin
  Randomize;
  Writeln('Исходный массив');
  for i := 1 to n do
  begin
    a[i] := Random(51) - 25;
    Write(a[i]:4);
  end;
  Writeln;
  Writeln('Результирующий массив');
  for i := 1 to n do
  begin
    if a[i] > 0 then a[i] := a[i] div 2 else a[i] := i;
    Write(a[i]:4);
  end;
  Writeln;
end.

Тестовое решение:
Исходный массив
   5 -19 -24 -21  -4  14 -18 -21   2 -14
Результирующий массив
   2   2   3   4   5   7   7   8   1  10