Задан массив AX (N). Добавить массив С(К). Выполнить сортировку разделением. В полученном векторе заменить первый положительный элемент на минимал

uses crt;
var ax,c:array [1..100]of integer;
a,n,m,i,j,k,p:integer;
procedure sortRazdelenie(l,r:integer);
var
  i,j,x1,y1,mm: integer;
begin
i:=l;
j:=r;
mm:=round ((l+r)/2);
x1:=ax[mm];
repeat
while ax[i]<x1 do inc(i);
while ax[j]>x1 do dec(j);
if i<=j then
begin
y1:=ax[i];
ax[i]:=ax[j];
ax[j]:=y1;
inc(i);
dec(j);
end;
until i>j;
if l<j then sortRazdelenie(l,j);
if i<r then sortRazdelenie(i,r);
end;
begin
clrscr;
randomize;
write('Vvedite n=');readln(n);
write('Vvedite k=');readln(k);
writeln('Ishodnii massiv A:');
for i:=1 to n do
begin
ax[i]:=random(50)-10;
write(ax[i]:4);
end;
writeln;
writeln('Massiv C:');
for i:=1 to k do
begin
c[i]:=random(50)-10;
write(c[i]:4);
end;
writeln;
for i:=1 to k do
begin
n:=n+1;
ax[n]:=c[i];
end;
writeln('Obedenennii masssiv:');
for i:=1 to n do
write(ax[i]:4);
writeln;
sortRazdelenie(1,n);
writeln('Massiv posle sortirovki:');
for i:=1 to n do
write(ax[i]:4);
writeln;
writeln('Massiv posle obrabotki:');
for i:=1 to n do
begin
if (ax[i]>0)and(p=0) then begin ax[i]:=ax[1]; p:=1; end;
write(ax[i]:4);
end;
end.