Дан массив размера N. Поменять местами его минимальный и максимальный элементы. (На языке Паскаль)

Program al;

var

a: array[1 ... 32000] of integer;

buf:integer;

i, n, min, max:integer; begin

writeln ('n=') ;

readln (n) ;

writeln ('vvedite massiv=') ;

for i : = 1 to n do

readln (a[i]) ;

min:=1;

max:=1;

for i:=2 to n do

begin

if a[min]>a[i] then

min:=i;

if a[max]
max:=i;

end;

buf:=a[min];

a[min]:=a[max];

a[max]:=buf;

writeln ('Massiv posle obmena maxmin') ;

for i:=1 to n do

write (a[i]:4) ;

writeln;

end.