Массивы паскаль

[schai]

как написать программу которая меняет максимальный элемент массива с минимальным..???
я тут начала чуть а дальше не знаю как, пожалуйста помогите чем сможете очень нужна эта задачка...
program VW3;
const N=13;
var
A:array[1..N] of integer;
max,min,i: integer;
begin
for i:=1 to N do
A[i]:=random(12);
writeln('massiv ', A[i]);
begin
max:=1;
for i:=2 to n do
if a[i]>max then
max:= a[i];
writeln ('max elementa massiva ', max);
end;
begin
min:=1;
for i:=2 to n do
if a[i]<min then
min:= a[i];
writeln ('min elementa massiva ', min);
end;

end.