Procedure MinimoMassimoVett(V: Vettore; L: Integer; Var Min, Max: Real);
Var
  i: Integer;
Begin
  Min:=V[1];
  Max:=V[1];
  For i:=2 to L do
    Begin
      if(V[i] < Min) then
        Min:=V[i];
      if(V[i] > Max) then
        Max:=V[i];
    End;
End;