Дан одномерный массив заменить все положительные элементы на максимальное среди них все отрицательные элементы массива на их индексы

Var a: array [1 ... 10] of integer;

i, max:integer;

begin

for i:=1 to 10 do

readln a[i];

max:=a[1];

for i:=2 to 10 do

if a[i]> max then max:=a[i];

for i:=1 to 10 do begin

if a[i]>0 then a[i]:=max;

if a[i] >0 then a[i]:=i;

end;

for i:=1 to 10 do

writeln (a[i]) ;

end.

1. Заполняем массив из 10 элементов

2 Считаем условно что первый элемент максимальный

3 В цикле начиная со второго элемента находим максимальный элемент

4 Осуществляем преобразования в цикле с учётом условия

5 Раз у нас задача на замену то осуществляем вывод массива чтобы просмотреть его элементы