Одномерный массив(найти max и min и поменять их местами в массиве)

[Monry]

можете посмотреть правильно ли я сделал. Заранее спасибо)
Если не правильно помогите пожалуйста.
min:=maxint
max:=maxint
for i:=1 to n do
if A(i)<min then begin p:=i;
A(i)=min;
end;
if A(i)>max then begin j:=i;
A(i)=max;
end;a[p]:=min;
a[j]:=max;

[BDA]

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