В одномерном массиве все положительные элементы заменить на значение минимального элемента

Program ggbb;
uses crt;
const n = 100;
var
mass: array [1..n] of real;
i,m: byte;
min: real;
begin
writeln('Ââåäèòå ðàçìåðíîñòü ìàññèâà íå áîëåå 100 ýëåìåíòîâ:');
readln(m);
write('Çàïîëíèòå ìàññèâ èç ');
write(m);
writeln(' ýëåìåíòîâ');
for i:=1 to m do
begin
readln(mass[i]);
end;
writeln('Ââåäåííûé ìàññèâ:');
for i:=1 to m do
begin
write(mass[i]);
write(' ');
end;
writeln();
min:=0;
for i:=1 to m do
if (mass[i] < min) then
begin
min:=mass[i];
end;
writeln('Èçìåíåííûé ìàññèâ:');
for i:=1 to m do
if (mass[i] >= 0) then
begin
mass[i]:=min;
end;
for i:=1 to m do
begin
write(mass[i]);
write(' ');
end;
writeln();
end.

program _array;
 
const
 N          = 10;
 
type
 TArray     = array [1..N] of real;
 TInfo      = record
  i         : byte;
  val       : real;
 end;
 
var
 Mas        : TArray;
 min        : TInfo;
 Summ       : real;
 i          : byte;
 
procedure FillArray(var A:TArray; rnd:boolean; lb,rb:integer);
{процедура заполнения массива rnd=true - случайно rnd=false - вручную
 из интервала (lb,rb)}
var
 i          : byte;
 function RandomReal(x1,x2 :integer):real;
 {возвращает случайное вещественное из интервала (x1,x2)} 
 var
  x         : real;
  sign      : byte;
 begin
  x:=0;
  if x1 < x2 then 
   begin
    if x2<0 then begin
                  repeat
                   x:=Random(abs(x1))+random();
                   sign:=random(2);
                   if sign>0 then x:=-x;
                  until (x>x1) and (x<x2);
                 end
            else begin
                  repeat
                   x:=random(x2)+random;
                   sign:=random(2);
                   if sign>0 then x:=-x;
                  until (x>x1) and (x<x2);
                 end;
    RandomReal:=x;
   end;
 end;
begin
 case rnd of 
    TRUE  : for i:=1 to N do A[i]:=RandomReal(lb,rb);
    FALSE : begin
             write('[',i,']: ');readln(A[i]);
            end;
 end;
end;
 
procedure PrintArray(const A:TArray);
{   печатает массив   }
var
 i          : byte;
begin
writeln();
 for i:=1 to N do write(A[i]:7:2,' ' );
writeln();
end;
 
function Getmin(const A:TArray):TInfo;
{ возвращает минимальный элемент массива}
var
 min        : TInfo;
 i          : byte;
begin
 min.i:=1;
 min.val:=A[1];
 for i:=1 to N do 
  if min.val>A[i] then begin
                        min.i:=i;
                        min.val:=A[i];
                       end;
 Getmin:=min;
end;
 
 
BEGIN
 
{ input & print array }
 randomize;
 FillArray(Mas,TRUE,-10,10);
 Write('formed array: ');
 PrintArray(Mas);
 
{ process. & output }
 Min:=GetMin(Mas);
 for i:=1 to N do 
  if Mas[i]>0 then Mas[i]:=Min.val;
 
 Writeln('Min: ',Min.val:0:2);
 Write('Modif. array: ');PrintArray(Mas);
 
Readln();
END.