Народ помогите плиз.

Нужно поменять местами максимальное значение и минимальное значение массива местами.
Скиньте кто-нить готовое с пояснениями а то сам не пойму как.
Program p2;
Const n=8;
Var a, k: Array[1..n]of integer;
x, i, z,mi,mn: integer;
begin
{a[1]:=12;
a[2]:=23;
a[3]:=11;
a[4]:=15;
a[5]:=17;
a[6]:=22;
a[7]:=45;
a[8]:=56};
for i := 1 to n do
begin
randomize;
a:=random (10);
write(a, ',');
end;
mi:= 1;
mn:= a[1];
for i := 2 to n do
if a > mn then begin
mi:= i;
mn:= a;
end;
writeln;
writeln ('maks znach = ',mn);
writeln ('poziciya ', mi);
writeln;
writeln('vvesti chislo kotoroe nyzhno naiti ');
readln(x);
for i := 1 to n do
begin
writeln('a[',i,']=?');readln(a);
if a = x then begin
z := z + 1;
k[z] := i;
end;
end;
if z = 0 then writeln('chislo ne naideno') else
if z = 1 then writeln('chislo naideno pn= ', k[z]) else
begin
write('chislo naideno pna = ');
for i := 1 to z do
write(k, ',');
end;
end.

прогу частично делал я

спс тем кто хотел помочь я сделал сам