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

Var a: array [1..100] of integer;
min,a,p: integer;
begin
read(n);
for i:= 1 to n do
read (a[i]);
min:a[1]; p:=1;
for i:=2 to n do 
if a[i]< min then
begin
min:=a[i];
p:=i;
end;
writeln('min,=; ,min);
writeln (' на позиции;p);
end.