Как заменить элемент элемент одномерного массива? Паскаль

[Женька Good]

Подскажите алгоритм, как заменить в одномерном массиве из 9 чисел 6 элемент на 5, т.е. 6 элемент должен принять значение 5

[VIK_aka_TOR]

a[6]:=a[5]; // элемент массива a[6] принимает значение a[5]

шестый элемент принимает значение пятого, а пятый шестого...

buf:= a[5]';
a[5]:=a[6];
a[6]:=buf;

buf - буфер, переменная для временного хранения..

[Женька Good]

Сообщение от VIK_aka_TOR

a[6]:=a[5]; // элемент массива a[6] принимает значение a[5]

шестый элемент принимает значение пятого, а пятый шестого...

buf:= a[5]';
a[5]:=a[6];
a[6]:=buf;

buf - буфер, переменная для временного хранения..

Вот у мя есть программа, там есть посчитанные элементы( выделенные красным), нужно этими элементами заменить 4, 5, 6 элементы массива соответственно.Помогите, если не сложно.

И ещё вопросик, в вот этом элементе программы

    For j:=1 to n do
     If v[j]<min then
     min:=j;
     Writeln(min:5:0);

не находит минимальный элемент, а идет до конца массива, почему?

Program Shalene_Divchisko;
Uses CRT;
type mymasyv=array[1..9] of real;
     Const y:mymasyv=(-1.2,-0.1,8.3,-9.5,6.3,-2.7,9.9,-3.6,-2.8);
     Const n=9;
Var v:mymasyv;
    jnd,ind,j:integer;
    min,max:real;
    
Procedure transform(Var v:mymasyv);
Var j:integer;
Begin
   For j:=1 to n do
     begin
     v[j]:=3*y[j];
     Write(v[j]:7:1);
     end;
end;

Procedure detect(Var v:mymasyv);
Var buf,max,min:real;
    j,amin:integer;
Begin
max:=1;
min:=1;
amin:=1;
    For j:=1 to n do
     If v[j]>max then
     max:=j;
     writeln(max:5:0);


    For j:=1 to n do
     If v[j]<min then
     min:=j;
     Writeln(min:5:0);


    For j:=1 to n do
     If abs(v[j])<abs(v[amin]) then
     amin:=j;
     Writeln(amin:5);
     
        end;


Begin
 CLRSCR;
 transform(v);
 Writeln;
 detect(v);
 Readkey
end.

[VIK_aka_TOR]

  For j:=1 to n do
     If v[j]<min then
     min:=v[j];
     Writeln(min:5:0);

присваивать min сам элемент массива, а не его индекс... + изначально присваивать min первый элемент массива (или любой другой). и что вы ищите? может и не верно тогда толкую...
а замена насколько я вас понял:

v[4]:=max;
v[5]:=min;
v[6]:=amin;

[Женька Good]

Сообщение от VIK_aka_TOR

  For j:=1 to n do
     If v[j]<min then
     min:=v[j];
     Writeln(min:5:0);

присваивать min сам элемент массива, а не его индекс... + изначально присваивать min первый элемент массива (или любой другой). и что вы ищите? может и не верно тогда толкую...
а замена насколько я вас понял:

v[4]:=max;
v[5]:=min;
v[6]:=amin;

Только вот парадокс

 max:=v[1];
    For j:=1 to n do
     If v[j]>max then
     max:=j;
     writeln(max:5:0);

     min:=v[1];
    For j:=1 to n do
     If v[j]<min then
     min:=j;
     Writeln(min:5:0);

максимальный находит, а минимальный нет

[VIK_aka_TOR]

а если так?

Program Shalene_Divchisko;
Uses CRT;
type mymasyv=array[1..9] of real;
     Const y:mymasyv=(-1.2,-0.1,8.3,-9.5,6.3,-2.7,9.9,-3.6,-2.8);
     Const n=9;
Var v:mymasyv;
    jnd,ind,min,max:integer;

Procedure transform(Var v:mymasyv);
Var j:integer;
Begin
   For j:=1 to n do
     begin
     v[j]:=3*y[j];
     Write(v[j]:7:1);
     end;
end;

Procedure detect(Var v:mymasyv);
Var buf:real;
    j,amin:integer;
Begin
max:=1;
min:=1;
amin:=1;
    For j:=1 to n do
     If (v[j] > v[max]) then
     max:=j;
     writeln(max:5);


    For j:=1 to n do
     If v[j]< v[min] then
     min:=j;
     Writeln(min:5);


    For j:=1 to n do
     If abs(v[j])<abs(v[amin]) then
     amin:=j;
     Writeln(amin:5);
        end;


Begin
 CLRSCR;
 transform(v);
 Writeln;
 detect(v);
 Readkey
end.

то что нужно? ... помог - жмякни весы)