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

Var a,min,max,i1,i2,i; m: array[1… 10000] of longint; beginmin: =1000000; readln (a); for i: =1 to a dobeginread (m[i]); if m[i]>max thenbeginmax: =m[i]; i2: =i; end; if m[i]