Составить программу в массиве с N числами поменять местами максимальное и минимальное значения

vara:array[1..1000] of integer;i,min,max,c,n:integer;beginread(n);min:=1;max:=1;for i:=1 to n do read(a[i]);for i:=1 to n do beginif a[i]>a[max] then max:=i;if a[i]<a[min] then min:=i;end;c:=a[min];a[min]:=a[max];a[max]:=c;for i:=1 to n do write(a[i],' ');end.