Найти максимальное и минимальное число массива с помощью рекурсии

const n=10;
type mas=array[1..n]of integer;
var a:mas;
    i,min,max:integer;
procedure min_max(x:mas;var i,i_min,i_max:integer);
 begin
  if i<=n then 
           begin
            if x[i]<x[i_min] then i_min:=i;
            if x[i]>x[i_max] then i_max:=i;
            inc(i);
            min_max(x,i,i_min,i_max)
           end
 end;
begin
 randomize;
 for i:=1 to n do 
  begin
   a[i]:=random(21);
   write(a[i],' ')
  end;
 writeln;
 min:=1;max:=1;i:=1;
 min_max(a,i,min,max);
 writeln('min = ',a[min],' max = ',a[max])
end.

procedure min_max(const x: array of Integer; n: Integer; var imn, imx: Integer);
var i: Integer;
  procedure impl;
  begin
    if i<n then begin
      if x[imn]>x[i] then imn:=i;
      if x[imx]<x[i] then imx:=i;
      Inc(i); impl;
    end;
  end;
begin
  imn:=0; imx:=0; i:=0; impl;
end;
const n=10;
var
  a: array [0..n-1] of Integer;
  imn, imx: Integer;
begin
  {...}
  min_max(a,n,imn,imx);
  {...}
end.