Паскаль. Необходимо найти наименьшее абсолютное значение

[Женька Good]

Есть программа с одномерным массивом, с использованием процедур, где одно из заданий найти наименьшее абсолютное значение и поставить его на 6 место в массиве.

Написал прогу, но есть проблемы:
- не пойму, как найти наименьшее абсолютное значение(в программе выделил красным)
-поставить наименьшее абсолютное значение на 6 место в массиве;
Вот моя программа, помогите пожалуйста!!!

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 max,min,amin:real;
    j:integer;
Begin
max:=v[1];
min:=v[1];
amin:=v[1];
   For j:=1 to n do
    If v[j]>max then begin
    max:=v[j];
     end;
     writeln;
    Write(max:7:1);
    writeln;

    
   For j:=1 to n do
    If v[j]<min then begin
    min:=v[j];
    Writeln;
    Writeln(min:7:1);
    end;
    
   for j:=1 to n do
   amin:=abs(v[j]);
   If v[j]<amin then begin
    amin:=v[j];
    writeln;
    Writeln(amin:7:1);
    end;
    end;


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

[Mad_Cat]

как найти наименьшее абсолютное значение

k:=low(a);
For i:=low(a)+1 to high(a) do
if abs(a[i])<abs(a[k]) then k:=i;

[Женька Good]

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

k:=low(a);
For i:=low(a)+1 to high(a) do
if abs(a[i])<abs(a[k]) then k:=i;

немного не понял, что значит Low(a)?

[Mad_Cat]

Low(a) - нижний индекс массива у тебя это 1
high(a) - верхний индекс массива у тебя это n

[Женька Good]

Вот я подставил, так соответствует программе?
amin:=1;
for j:=1 to n do
If abs(v[j])<abs(v[amin]) then amin:=j;
Writeln(amin:7:1);

[Mad_Cat]

да только

Writeln(v[amin]:7:1);

[Женька Good]

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

да только

Writeln(v[amin]:7:1);

Mad_Cat,
не подскажешь алгоритм, как заменить 6 элемент одномерного массива на число 5?

[Mad_Cat]

как заменить

не заменить - а вставить)

buf:=v[amin];
for i:=amin to n-1 do
v[i]:=v[i+1];
For i:=n downto 7 do
v[i]:=v[i-1];
v[6]:=buf;