Поменять в последовательности местами наибольший и наименьший члены

program MAIN
    PARAMETER (N=10)
    DOUBLE PRECISION X(N),T,VL,VH
    DATA X/1.9, 5.5, 3.3, 7.7, 3.1, 5.2, 6.7, 1.8, 5.1, 3.2/
    INTEGER I,IL,IH
    IL=1
    VL=X(1)
    IH=1
    VH=X(1)
    DO I=2,N
        IF(X(I).LT.VL) THEN
            VL=X(I)
            IL=I
        END IF
        IF(X(I).GT.VH) THEN
            VH=X(I)
            IH=I
        END IF
    END DO
    T=X(IL)
    X(IL)=X(IH)
    X(IH)=T
    DO I=1,N
        PRINT '(F4.1)', X(I)
    END DO
end program MAIN

program MAIN
implicit none    
   
    real :: T,VL,VH
    integer :: I,IL,IH, N
    
    real, dimension (:), allocatable :: X  
  
    write (*,*) "Введите число элементов массива"; read (*,*) N
    
    allocate (X(N))
    
    do i=1, n
    write (*,*) "Введите элемент массива №=", i; read (*,*) X(i)
    end do
    
    IL=1
    VL=X(1)
    IH=1
    VH=X(1)
    
    DO I=2,N
        IF(X(I) < VL) THEN
            VL=X(I)
            IL=I
        END IF
        IF(X(I) > VH) THEN
            VH=X(I)
            IH=I
        END IF
    END DO
     
    T=X(IL); X(IL)=X(IH); X(IH)=T
    
        do i=1,N
        write (*,*) X(i)
        end do
    
    deallocate (X)  
 
end