В полученном векторе заменить первый положительный элемент на минимальное значение элемента массива

uses crt;
const nmax=100;
type mas=array [1..nmax] of integer;
procedure massiv(var a:mas;var n:integer;c:char);
var i:integer;
begin
repeat
write('Размер массива ',c,' от 1 до ',nmax div 2,' n=');
readln(n);
until n in [1..nmax];
for i:=1 to n do
a[i]:=-20+random(41);
end;
procedure print(a:mas;n:integer;s:string);
var i:integer;
begin
writeln(s);
for i:=1 to n do
write(a[i]:4);
writeln
end;
procedure dobv(var a:mas;var n:integer;b:mas;m:integer);
var i:integer;
begin
for i:=1 to m do
 begin
  n:=n+1;
  a[n]:=b[i]
 end;
end;
procedure sort(var a:mas;n,l,r:integer);
var
  i,j,x,y,m: integer;
begin
  i:=l;
  j:=r;
  m:=round ((l+r)/2);
  x:=a[m];
  repeat
    while a[i]<x do inc(i);
    while a[j]>x do dec(j);
    if i<=j then
     begin
      y:=a[i];
      a[i]:=a[j];
      a[j]:=y;
      inc(i);
      dec(j);
     end;
  until i>j;
  if l<j then sort(a,n,l,j);
  if i<r then sort(a,n,i,r);
end;
procedure zamena(var a:mas;n:integer);
var i,i1:integer;
begin
i1:=0;
for i:=1 to n do
if(i1=0)and(a[i]>0) then i1:=i;
writeln('Минимальный элемент=',a[1]);
if i1=0 then
 begin
  writeln('В масиве нет положительных элементов');
  readln;
  halt
 end;
writeln('Первый положительный элемент=',a[i1]);
a[i1]:=a[1];
end;
var a,c:mas;
    n,m:integer;
begin
clrscr;
randomize;
massiv(a,n,'A');
massiv(c,m,'C');
print(a,n,'Исходный массив А');
print(c,m,'Массив С');
dobv(a,n,c,m);
print(a,n,'Добавление С к А');
sort(a,n,1,n);
print(a,n,'Отсортированный массив А');
zamena(a,n);
print(a,n,'Замена первого положительного на минимальный');
readln
end.