В одномерном массиве поменять местами первый макс. элемент с последним мин. элементом

Program test2;
type mas=array[1..10] of integer;
var a:mas;
    f:text;
    n,max,min:integer;
procedure zap(var a:mas; var n:integer);
          var i:integer;
              begin read(f,n);
                    for i:=1 to n do read(f,a[i]);
              end;
procedure print(a:mas; n:integer);
          var i:integer;
          begin for i:=1 to n do write(a[i], ' ');
          end;
function maxi(a:mas;n:integer):integer;
         var i,r:integer;
         begin r:=1;
               for i:=2 to n do if a[i]>a[r] then r:=i;
               maxi:=r;
         end;
function mini(a:mas; n:integer):integer;
         var i,r:integer;
         begin r:=1;
               for i:=2 to n do if a[i]<=a[r] then r:=i;
               mini:=r;
         end;
procedure ob(var a:mas; max,min:integer);
          var m:integer;
          begin m:=a[max];
                a[max]:=a[min];
                a[min]:=m;
          end;
begin assign(f,'ZAD22.txt'); reset(f);
      zap(a,n);
      writeln('Исходный массив: ');
      print(a,n);
      writeln;
      max:=maxi(a,n);
      min:=mini(a,n);
      ob(a,max,min);
      writeln('Результат обмена: ');
      print(a,n);
      writeln;
end.

procedure ob(var a, b: integer);
          var m:integer;
          begin m:=a;
                a:=b;
                b:=m;
          end;

      ob(a[max],a[min]);

function mini(a:mas; n:integer):integer;
var i,r:integer;
begin r:=n;
for i:=n-1 downto 1 do if a[i]<a[r] then r:=i;
mini:=r;
end;