Нужно поменять min и max в массиве. Найти ошибку. Меняет совсем не то.

Program h;
const n=10;
var 
a:array[1..n] of integer;
i:integer;
min, max,temp:integer;
n_max,n_min:integer;
begin
for i:=1 to n do
readln (a[i]);
min:=a[1];max:=a[1];
n_min:=1;n_max:=1;
for i:=1 to n do
begin
if a[i]<min then begin min:=a[i]; n_min:=i; end;
if a[i]>max then begin max:=a[i]; n_max:=i; end;
end;
writeln( '   min=',  min,'   max=', max );
writeln;
for i:=1 to n do
write ( a[i]:3);
begin
temp:=a[min];
a[min]:=a[max];
a[max]:=temp;
end;
writeln();
writeln('результат:');
for i:=1 to n do
write (a[i]:3);
end.

program h;
 
const
  n = 10;
 
var
  a: array[1..n] of integer;
  i: integer;
  min, max, temp: integer;
  n_max, n_min: integer;
 
begin
  for i := 1 to n do
    readln(a[i]);
  min := a[1];max := a[1];
  n_min := 1;n_max := 1;
  for i := 1 to n do
  begin
    if a[i] < a[n_min] then begin min := a[i]; n_min := i; end; // здесь - внимательнее
    if a[i] > a[n_max] then begin max := a[i]; n_max := i; end;
  end;
  writeln( '   min=',  min, '   max=', max );
  writeln;
  for i := 1 to n do
    write( a[i]:3);
  begin
    temp := a[n_min]; // здесь тоже
    a[n_min] := a[n_max];
    a[n_max] := temp;
  end;
  writeln();
  writeln('результат:');
  for i := 1 to n do
    write(a[i]:3);
end.