Поменять местами минимальный и максимальный элемент массива

[Лераа]

здрастиии. нужно решить задачку. заранее спасибо.
1. задан вектор из N элементов. Поменять местами минимальный и максимальный элемент местами.

[domovou]

max:=a[1];
min:=a[2];
for i:= 1 to n do
    begin
    if a[i]>max then max:=i;
    if a[i]<min then min:=i;
    end;
c:=a[max];
a[max]:=a[min];
a[min]:=c;

[BDA]

domovou, по-моему, не совсем то

max:=1;
min:=1;
for i:= 2 to n do
    begin
    if a[i]>a[max] then max:=i
    else
    if a[i]<a[min] then min:=i;
    end;
c:=a[max];
a[max]:=a[min];
a[min]:=c;

Пожалуйста. Тоже по ночам пишу фигню

[domovou]

BDA, спасибо
Что то у меня голова поехала
Даже не обратил внимания какую фигню я написал)