Как находится минимальный максимальный элемент массива?

min:=a[1];
for i:=2 to n do
  begin
     if min>a[i] then
       min:=a[i];
  end;

max:=a[1];
for i:=2 to n do
  begin
     if max<a[i] then
       max:=a[i];
  end;

{ Сортировка "шейкером" }
  procedure ShakerSort( var A : mas );
    var
      l, r, j : Integer;
      x : itp;
    begin
      l := 2;
      r := max;
      while l <= r do
        begin
          { "Пузырек" слева направо }
          for j := l to r do
          if A[j] < A[j - 1] then
            begin
              x := A[j];
              A[j] := A[j - 1];
              A[j - 1] := x;
            end;
          r := r - 1;
          { "Пузырек" справа налево }
          for j := r downto l do
          if A[j] < A[j - 1] then
            begin
              x := A[j];
              A[j] := A[j - 1];
              A[j - 1] := x;
            end;
          l := l + 1;
        end;
    end;