Помогите пожалуйста, заранее спасибо
Паскаль abc:

Массив а(10) поменять местами min и max

vara:array[1..10]of integer;b,min,max,I,maxi,mini:integer;beginfor I :1 to 10 doreadln(a[I]);max:=a[1];min:=a[1];maxi:=1;mini:=1;for I :1 to 10 dobeginif a[I]>max then begin max:=a[I];maxi:=I;end;if a[I]<min then begin min:=a[I];mini:=I;end;a[maxi]:=min;a[mini]:=max;for I :1 to 10 dowriteln(a[I]);end.