Как написать цикл, который будет менять минимальный элемент одномерного массива на среднее арифметическое?

var
A: array [1..50] of real;
i,n: integer;
k,s, min:real;
begin
write ('n= ');
readln (n);
begin 
randomize;
for i:=1 to n do
A[i]:= random (45);
for i:=1 to n do
end;
 
begin 
for i:=1 to n do
write (A[i]:6);
end;
 
begin
s:=0;
for i:=1 to n do
s:=A[i]+s;
k:= s/n;
end;
writeln;
writeln ('SUMMA= ',s);
writeln ('CA= ',k);
 
begin
min:=100;
for i:=1 to n do
if A[i]<min then
min:= A[i];
end;
writeln ('MIN= ',min);
 
begin
for i:=1 to n do
write (A[i]:6);
end;
end.

const n = 20;
var a: array [1..n] of real;
    i: integer;
    min, ave: real;
begin
  randomize;
  ave := 0;
  for i := 1 to n do begin
    a[i] := random * 20 - 10;
    write(a[i]:0:2, ' ');
    ave := ave + a[i];
    if i = 1 then min := a[i]
    else if min > a[i] then min := a[i];
  end;
  ave := ave / n;
  writeln;writeln;
  for i := 1 to n do begin
    if a[i] = min then a[i] := ave;
    write(a[i]:0:2, ' ');
  end;
end.

var
A: array [1..50] of real;
n,i,imin: integer;
s:real;
begin
write ('n= ');
readln (n);
randomize;
s:=0;
for i:=1 to n do
 begin
  A[i]:= 10*random;
  write (A[i]:5:1);
  s:=s+A[i];
 end;
s:=s/n;
writeln;
writeln ('CA= ',s:0:1);
imin:=1;
for i:=2 to n do
if A[i]<A[imin] then
imin:=i;
writeln ('MIN= ',A[imin]:0:1);
A[imin]:=s;
for i:=1 to n do
write (A[i]:5:1);
end.