Дан массив целых чисел. Поменять местами первый максимальный (если таковых несколько) и последний минимальный (если таковых несколько) по значению элементы массива. Число элементов в массиве не более 10-ти Pascal

var a:array[1 ... 10]of integer;

max, min, i, n, i1, i2:integer;

begin

readln (n) ;

for i:=1 to n do readln (a[i]) ;

max:=a[1];

min:=a[1];

for i:=1 to n do begin

if a[i]>max then begin max:=a[i]; i1:=i; end;

if a[i]<=min then begin min:=a[i]; i2:=i; end;

end;

a[i1]:=a[i1]+a[i2];

a[i2]:=a[i1]-a[i2];

a[i1]:=a[i1]-a[i2];

for i:=1 to n do write (a[i],' ') ;

end.