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

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.