Дан массив размера n(число n задается заранее).Найти максимальный и минимальный элемент и поменять их местами, и вывести этот массив — Pascal(Паскаль)

Uses WinCrt;
var
index,index1,i,n,t:Integer;
x: array [1..100] OF integer;
Begin
Read(n);
For i:=1 to n do
Begin
Read(x[i]);
End;
index:=1;
index1:=1;
For i:=1 to n do
Begin
If (x[i]<x[index]) Then
Begin
index:=i;
End;
If (x[i]>x[index1]) Then
Begin
index1:=i;
End;
End;
t:=x[index];
x[index]:=x[index1];
x[index1]:=t;
For i:=1 to n do
Begin
Write(x[i],' ');
End;
End.