Совместить 2 кода в один. Разработать программу для сортировки массива, используя рекурсивную процедуру

Program work1;
var n:integer;
 
procedure recurs(n:integer);
begin
if n>1 then
   begin
        n:=n-1;
        writeln('n=',n);
        recurs(n);
   end;
end;
begin
writeln('Введите n: '); readln(n);
recurs(n);
end.

var a:array[1..100] of integer;
    n,i,j,k,imx,x:integer;
begin
randomize;
write('n=');
readln(n);
writeln('Исходный массив');
for i:=1 to n do
 begin
  a[i]:=random(200);
  write(a[i]:4);
 end;
writeln;
for i:=1 to n-1 do
 begin
  imx:=1;
  for j:=2 to n-i+1 do
  if a[j]<a[imx] then imx:=j;
  x:=a[imx];
  for j:=imx to n-i+1 do
  a[j]:=a[j+1];
  a[n-i+1]:=x;
 end;
writeln('Отсортированный массив');
for i:=1 to n do
write(a[i]:4);
end.

const nmax=100;
var a,c:array[0..100] of integer;
    n,i,j,k:integer;
begin
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
for i:=1 to n do
 begin
  a[i]:=random(100);
  write(a[i]:4);
 end;
writeln;
for i:=0 to 100 do
c[i]:=0;
for i:=1 to n do
inc(c[a[i]]);
k:=0;
for i:=0 to 100 do
for j:=1 to c[i] do
 begin
  inc(k);
  a[k]:=i;
  end;
for i:=1 to n do
write(a[i]:4);
end.