Найти минимальный элемент среди положительных элементов массива. Заменить все отрицательные элементы массива на этот минимальный элемент — Pascal(Паскаль)

uses crt;
const n=10;
var a:array[1..n] of integer;
    i,j,min:integer;
begin
ClrScr;
Randomize;
for i:=1 to n do
 begin
  a[i]:=random(20)-10;
  Write(a[i],'  ');
 end;
Writeln;
min:=32767;
for i:=1 to n do
 if a[i]>0 then
  begin
   if a[i]<min then
    min:=a[i];
  end;
Writeln('Min ',min);
for i:=1 to n do
 if a[i]<0 then
  a[i]:=min;
Writeln('NewMass A: ');
for i:=1 to n do
 Write(a[i],'  ');
Readln;
end.