Найти минимум и максимум в массиве

const n=10;
type mas=array[1..n] of integer;
function min_max(a:mas;var min:integer):integer;
var i,max:integer;
begin
max:=a[1];
min:=a[1];
for i:=2 to n do
if a[i]>max then max:=a[i]
else if a[i]<min then min:=a[i];
min_max:=max;
end;
var a:mas;
    i,mx,mn:integer;
begin
randomize;
for i:=1 to n do
 begin
  a[i]:=random(100);
  write(a[i]:3);
 end;
writeln;
mx:=min_max(a,mn);
write('Минимум=',mn,' максимум=',mx)
end.

{$MODE TP}
const
    nMax = 10;
type
    TSize = 0..nMax - 1;
    TArray = Array[TSize] Of ShortInt;
function GetMaxMin(const ar: TArray; const findMin: Boolean): ShortInt;
var
    i, id: Byte;
begin
    id := 0;
    for i := Low(TSize) + 1 to High(TSize) do
        if (((findMin) And (ar[i] < ar[id])) Or ((Not findMin) And (ar[i] > ar[id])))
        then
            id := i;
    GetMaxMin := ar[id];
end;
var
    ar: TArray;
    i: Byte;
begin
    Randomize();
    WriteLn('Original array:');
    for i := Low(TSize) to High(TSize) do
    begin
        ar[i] := Random(199) - 99;
        Write(ar[i]:4);
    end;
    WriteLn; WriteLn;
    WriteLn('Min=', GetMaxMin(ar, True));
    Write('Max=', GetMaxMin(ar, False));
end.

program project11;
const
  n=10;
type
  vector=array [1..n] of real;
 
function minmax(a:vector;var min,max:real):real;
var
  i:integer;
begin
  max:=a[1];
  min:=a[1];
  for i:=2 to n do
     begin
        if a[i]>max then
          max:=a[i];
        if a[i]<min then
          min:=a[i];
     end;
end;
var
  x:vector;
  i:integer;
  mx,mn:real;
begin
  for i:=1 to n do
     begin
       x[i]:=-n div 2 + random*n;
       write(x[i]:8:2);
     end;
  writeln;
  minmax(x,mn,mx);
  writeln('Min: ',mn:8:2);
  writeln('Max: ',mx:8:2);
  readln;
end.