Массив, Поменять местами минимальный и максимальный элемент массива Опции

[Софа]

Подскажите, как до ума довести такую задачку?
Поменять местами максимальный и минимальный элемент массива размера 10.
Задача вроде легкая, я нашла максимальный и минимальный элемент, а поменять их местами не получается

max:=a[1]; min:=a[1];
for i:=1 to n Do
begin
if max < a[i] then begin
max:=a[i]; end; end;

for i:=1 to n Do
begin
if min > a[i] then begin
min:=a[i];
end; end;

writeln (max,min);
writeln;
{for i:=1 to n Do

Vs:=max;
max:=min;
min:=Vs;} - что в этой части не так?