В одномерном массиве поменять местами максимальные и минимальные элементы (в паскале)

program pr;var a:array [1..10] of integer i, imax, imin, mx, mn, n:integer;beginfor i := 1 to 10 doa[i] := random(50);mx := a[1];for i := 2 to 10 dobeginif a[i] > mx then beginmx := a[i];imax := iend;end;mn := a[0];for i := 2 to 10 dobeginif a[i] < mn then beginmn := a[i];imin := iend;end;a[imax] := mn;a[imin] := mxwriteln(a);end.