Tìm và in giá trị của phần tử max

Nhập vào một dãy n số thực. In dãy vừa nhập ra màn hình. Tìm và in giá trị của phần tử max, min và vị trí của chúng trong mảng, sau đó đổi chỗ 2 phần tử này cho nhau. In ra dãy sau khi đổi chỗ.(mình làm trên pascal nha) giúp vsssssssssssssss